home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-04-24 | 46.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 75 6e 20 | 41 70 72 20 32 34 20 30 | on Sun |Apr 24 0|
|00000040| 36 3a 34 30 3a 30 33 20 | 31 39 39 34 0a 3b 3b 3b |6:40:03 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 74 70 75 2d 65 64 | 74 2e 65 6c 0a 3b 3b 3b |p/tpu-ed|t.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 32 32 2e 39 30 2e | 31 31 2e 0a 3b 3b 3b 20 |9.22.90.|11..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))). |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 2f 68 6f 6d 65 2f | (error |"`/home/|
|000001a0| 66 73 66 2f 72 6d 73 2f | 65 31 39 2f 6c 69 73 70 |fsf/rms/|e19/lisp|
|000001b0| 2f 74 70 75 2d 65 64 74 | 2e 65 6c 27 20 77 61 73 |/tpu-edt|.el' was|
|000001c0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|000001d0| 61 63 73 20 31 39 22 29 | 29 0a 0a 28 64 65 66 63 |acs 19")|)..(defc|
|000001e0| 6f 6e 73 74 20 74 70 75 | 2d 76 65 72 73 69 6f 6e |onst tpu|-version|
|000001f0| 20 22 33 2e 32 22 20 22 | 5c 0a 54 50 55 2d 65 64 | "3.2" "|\.TPU-ed|
|00000200| 74 20 76 65 72 73 69 6f | 6e 20 6e 75 6d 62 65 72 |t versio|n number|
|00000210| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 74 70 |.").(def|const tp|
|00000220| 75 2d 68 61 76 65 2d 69 | 73 70 65 6c 6c 20 74 20 |u-have-i|spell t |
|00000230| 22 5c 0a 2a 49 66 20 6e | 6f 6e 2d 6e 69 6c 20 28 |"\.*If n|on-nil (|
|00000240| 64 65 66 61 75 6c 74 29 | 2c 20 54 50 55 2d 65 64 |default)|, TPU-ed|
|00000250| 74 20 75 73 65 73 20 69 | 73 70 65 6c 6c 20 66 6f |t uses i|spell fo|
|00000260| 72 20 73 70 65 6c 6c 20 | 63 68 65 63 6b 69 6e 67 |r spell |checking|
|00000270| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 74 70 |.").(def|const tp|
|00000280| 75 2d 6b 69 6c 6c 2d 62 | 75 66 66 65 72 73 2d 73 |u-kill-b|uffers-s|
|00000290| 69 6c 65 6e 74 6c 79 20 | 6e 69 6c 20 22 5c 0a 2a |ilently |nil "\.*|
|000002a0| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 54 50 55 2d |If non-n|il, TPU-|
|000002b0| 65 64 74 20 6b 69 6c 6c | 73 20 6d 6f 64 69 66 69 |edt kill|s modifi|
|000002c0| 65 64 20 62 75 66 66 65 | 72 73 20 77 69 74 68 6f |ed buffe|rs witho|
|000002d0| 75 74 20 61 73 6b 69 6e | 67 2e 22 29 0a 28 64 65 |ut askin|g.").(de|
|000002e0| 66 76 61 72 20 74 70 75 | 2d 70 65 72 63 65 6e 74 |fvar tpu|-percent|
|000002f0| 2d 73 63 72 6f 6c 6c 20 | 37 35 20 22 5c 0a 2a 50 |-scroll |75 "\.*P|
|00000300| 65 72 63 65 6e 74 61 67 | 65 20 6f 66 20 74 68 65 |ercentag|e of the|
|00000310| 20 73 63 72 65 65 6e 20 | 74 6f 20 73 63 72 6f 6c | screen |to scrol|
|00000320| 6c 20 66 6f 72 20 6e 65 | 78 74 2f 70 72 65 76 69 |l for ne|xt/previ|
|00000330| 6f 75 73 20 73 63 72 65 | 65 6e 20 63 6f 6d 6d 61 |ous scre|en comma|
|00000340| 6e 64 73 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |nds.").(|defvar t|
|00000350| 70 75 2d 70 61 6e 2d 63 | 6f 6c 75 6d 6e 73 20 31 |pu-pan-c|olumns 1|
|00000360| 36 20 22 5c 0a 2a 4e 75 | 6d 62 65 72 20 6f 66 20 |6 "\.*Nu|mber of |
|00000370| 63 6f 6c 75 6d 6e 73 20 | 74 68 65 20 74 70 75 2d |columns |the tpu-|
|00000380| 70 61 6e 20 66 75 6e 63 | 74 69 6f 6e 73 20 73 63 |pan func|tions sc|
|00000390| 72 6f 6c 6c 20 6c 65 66 | 74 20 6f 72 20 72 69 67 |roll lef|t or rig|
|000003a0| 68 74 2e 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |ht.").(d|efconst |
|000003b0| 74 70 75 2d 65 6d 61 63 | 73 31 39 2d 70 20 28 62 |tpu-emac|s19-p (b|
|000003c0| 79 74 65 2d 63 6f 64 65 | 20 22 08 c1 99 3f 87 22 |yte-code| "...?."|
|000003d0| 20 5b 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 | [emacs-|version |
|000003e0| 22 31 39 22 5d 20 32 29 | 20 22 5c 0a 4e 6f 6e 2d |"19"] 2)| "\.Non-|
|000003f0| 4e 49 4c 20 69 66 20 77 | 65 20 61 72 65 20 72 75 |NIL if w|e are ru|
|00000400| 6e 6e 69 6e 67 20 4c 75 | 63 69 64 20 6f 72 20 47 |nning Lu|cid or G|
|00000410| 4e 55 20 45 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |NU Emacs| version|
|00000420| 20 31 39 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 | 19.").(|defconst|
|00000430| 20 74 70 75 2d 67 6e 75 | 2d 65 6d 61 63 73 31 38 | tpu-gnu|-emacs18|
|00000440| 2d 70 20 28 6e 75 6c 6c | 20 74 70 75 2d 65 6d 61 |-p (null| tpu-ema|
|00000450| 63 73 31 39 2d 70 29 20 | 22 5c 0a 4e 6f 6e 2d 4e |cs19-p) |"\.Non-N|
|00000460| 49 4c 20 69 66 20 77 65 | 20 61 72 65 20 72 75 6e |IL if we| are run|
|00000470| 6e 69 6e 67 20 47 4e 55 | 20 45 6d 61 63 73 20 76 |ning GNU| Emacs v|
|00000480| 65 72 73 69 6f 6e 20 31 | 38 2e 22 29 0a 28 64 65 |ersion 1|8.").(de|
|00000490| 66 63 6f 6e 73 74 20 74 | 70 75 2d 6c 75 63 69 64 |fconst t|pu-lucid|
|000004a0| 2d 65 6d 61 63 73 31 39 | 2d 70 20 28 62 79 74 65 |-emacs19|-p (byte|
|000004b0| 2d 63 6f 64 65 20 22 08 | 85 08 00 c1 c2 0b 5c 22 |-code ".|......\"|
|000004c0| 87 22 20 5b 74 70 75 2d | 65 6d 61 63 73 31 39 2d |." [tpu-|emacs19-|
|000004d0| 70 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |p string|-match "|
|000004e0| 4c 75 63 69 64 22 20 65 | 6d 61 63 73 2d 76 65 72 |Lucid" e|macs-ver|
|000004f0| 73 69 6f 6e 5d 20 33 29 | 20 22 5c 0a 4e 6f 6e 2d |sion] 3)| "\.Non-|
|00000500| 4e 49 4c 20 69 66 20 77 | 65 20 61 72 65 20 72 75 |NIL if w|e are ru|
|00000510| 6e 6e 69 6e 67 20 4c 75 | 63 69 64 20 45 6d 61 63 |nning Lu|cid Emac|
|00000520| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 22 29 0a |s versio|n 19.").|
|00000530| 28 64 65 66 63 6f 6e 73 | 74 20 74 70 75 2d 67 6e |(defcons|t tpu-gn|
|00000540| 75 2d 65 6d 61 63 73 31 | 39 2d 70 20 28 62 79 74 |u-emacs1|9-p (byt|
|00000550| 65 2d 63 6f 64 65 20 22 | 08 85 06 00 09 3f 87 22 |e-code "|.....?."|
|00000560| 20 5b 74 70 75 2d 65 6d | 61 63 73 31 39 2d 70 20 | [tpu-em|acs19-p |
|00000570| 74 70 75 2d 6c 75 63 69 | 64 2d 65 6d 61 63 73 31 |tpu-luci|d-emacs1|
|00000580| 39 2d 70 5d 20 31 29 20 | 22 5c 0a 4e 6f 6e 2d 4e |9-p] 1) |"\.Non-N|
|00000590| 49 4c 20 69 66 20 77 65 | 20 61 72 65 20 72 75 6e |IL if we| are run|
|000005a0| 6e 69 6e 67 20 47 4e 55 | 20 45 6d 61 63 73 20 76 |ning GNU| Emacs v|
|000005b0| 65 72 73 69 6f 6e 20 31 | 39 2e 22 29 0a 28 64 65 |ersion 1|9.").(de|
|000005c0| 66 76 61 72 20 43 53 49 | 2d 6d 61 70 20 28 6d 61 |fvar CSI|-map (ma|
|000005d0| 6b 65 2d 73 70 61 72 73 | 65 2d 6b 65 79 6d 61 70 |ke-spars|e-keymap|
|000005e0| 29 20 22 5c 0a 4d 61 70 | 73 20 74 68 65 20 43 53 |) "\.Map|s the CS|
|000005f0| 49 20 66 75 6e 63 74 69 | 6f 6e 20 6b 65 79 73 20 |I functi|on keys |
|00000600| 6f 6e 20 74 68 65 20 56 | 54 31 30 30 20 6b 65 79 |on the V|T100 key|
|00000610| 62 6f 61 72 64 2e 0a 43 | 53 49 20 69 73 20 44 45 |board..C|SI is DE|
|00000620| 43 27 73 20 6e 61 6d 65 | 20 66 6f 72 20 74 68 65 |C's name| for the|
|00000630| 20 73 65 71 75 65 6e 63 | 65 20 3c 45 53 43 3e 5b | sequenc|e <ESC>[|
|00000640| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 53 53 33 2d |.").(def|var SS3-|
|00000650| 6d 61 70 20 28 6d 61 6b | 65 2d 73 70 61 72 73 65 |map (mak|e-sparse|
|00000660| 2d 6b 65 79 6d 61 70 29 | 20 22 5c 0a 4d 61 70 73 |-keymap)| "\.Maps|
|00000670| 20 74 68 65 20 53 53 33 | 20 66 75 6e 63 74 69 6f | the SS3| functio|
|00000680| 6e 20 6b 65 79 73 20 6f | 6e 20 74 68 65 20 56 54 |n keys o|n the VT|
|00000690| 31 30 30 20 6b 65 79 62 | 6f 61 72 64 2e 0a 53 53 |100 keyb|oard..SS|
|000006a0| 33 20 69 73 20 44 45 43 | 27 73 20 6e 61 6d 65 20 |3 is DEC|'s name |
|000006b0| 66 6f 72 20 74 68 65 20 | 73 65 71 75 65 6e 63 65 |for the |sequence|
|000006c0| 20 3c 45 53 43 3e 4f 2e | 22 29 0a 28 64 65 66 76 | <ESC>O.|").(defv|
|000006d0| 61 72 20 47 4f 4c 44 2d | 6d 61 70 20 28 6d 61 6b |ar GOLD-|map (mak|
|000006e0| 65 2d 6b 65 79 6d 61 70 | 29 20 22 5c 0a 4d 61 70 |e-keymap|) "\.Map|
|000006f0| 73 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 6b |s the fu|nction k|
|00000700| 65 79 73 20 6f 6e 20 74 | 68 65 20 56 54 31 30 30 |eys on t|he VT100|
|00000710| 20 6b 65 79 62 6f 61 72 | 64 20 70 72 65 63 65 65 | keyboar|d precee|
|00000720| 64 65 64 20 62 79 20 50 | 46 31 2e 0a 47 4f 4c 44 |ded by P|F1..GOLD|
|00000730| 20 69 73 20 74 68 65 20 | 41 53 43 49 49 20 37 2d | is the |ASCII 7-|
|00000740| 62 69 74 20 65 73 63 61 | 70 65 20 73 65 71 75 65 |bit esca|pe seque|
|00000750| 6e 63 65 20 3c 45 53 43 | 3e 4f 50 2e 22 29 0a 28 |nce <ESC|>OP.").(|
|00000760| 64 65 66 76 61 72 20 47 | 4f 4c 44 2d 43 53 49 2d |defvar G|OLD-CSI-|
|00000770| 6d 61 70 20 28 6d 61 6b | 65 2d 73 70 61 72 73 65 |map (mak|e-sparse|
|00000780| 2d 6b 65 79 6d 61 70 29 | 20 22 5c 0a 4d 61 70 73 |-keymap)| "\.Maps|
|00000790| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 6b 65 | the fun|ction ke|
|000007a0| 79 73 20 6f 6e 20 74 68 | 65 20 56 54 31 30 30 20 |ys on th|e VT100 |
|000007b0| 6b 65 79 62 6f 61 72 64 | 20 70 72 65 63 65 65 64 |keyboard| preceed|
|000007c0| 65 64 20 62 79 20 47 4f | 4c 44 2d 43 53 49 2e 22 |ed by GO|LD-CSI."|
|000007d0| 29 0a 28 64 65 66 76 61 | 72 20 47 4f 4c 44 2d 53 |).(defva|r GOLD-S|
|000007e0| 53 33 2d 6d 61 70 20 28 | 6d 61 6b 65 2d 73 70 61 |S3-map (|make-spa|
|000007f0| 72 73 65 2d 6b 65 79 6d | 61 70 29 20 22 5c 0a 4d |rse-keym|ap) "\.M|
|00000800| 61 70 73 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |aps the |function|
|00000810| 20 6b 65 79 73 20 6f 6e | 20 74 68 65 20 56 54 31 | keys on| the VT1|
|00000820| 30 30 20 6b 65 79 62 6f | 61 72 64 20 70 72 65 63 |00 keybo|ard prec|
|00000830| 65 65 64 65 64 20 62 79 | 20 47 4f 4c 44 2d 53 53 |eeded by| GOLD-SS|
|00000840| 33 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 70 75 |3.").(de|fvar tpu|
|00000850| 2d 67 6c 6f 62 61 6c 2d | 6d 61 70 20 6e 69 6c 20 |-global-|map nil |
|00000860| 22 5c 0a 54 50 55 2d 65 | 64 74 20 67 6c 6f 62 61 |"\.TPU-e|dt globa|
|00000870| 6c 20 6b 65 79 6d 61 70 | 2e 22 29 0a 28 64 65 66 |l keymap|.").(def|
|00000880| 76 61 72 20 74 70 75 2d | 6f 72 69 67 69 6e 61 6c |var tpu-|original|
|00000890| 2d 67 6c 6f 62 61 6c 2d | 6d 61 70 20 28 63 6f 70 |-global-|map (cop|
|000008a0| 79 2d 6b 65 79 6d 61 70 | 20 67 6c 6f 62 61 6c 2d |y-keymap| global-|
|000008b0| 6d 61 70 29 20 22 5c 0a | 4f 72 69 67 69 6e 61 6c |map) "\.|Original|
|000008c0| 20 67 6c 6f 62 61 6c 20 | 6b 65 79 6d 61 70 2e 22 | global |keymap."|
|000008d0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 83 |).(byte-|code "..|
|000008e0| 13 00 c1 c2 21 84 0d 00 | c3 20 12 c4 c2 c5 c6 23 |....!...|. .....#|
|000008f0| 88 c1 87 22 20 5b 74 70 | 75 2d 6c 75 63 69 64 2d |..." [tp|u-lucid-|
|00000900| 65 6d 61 63 73 31 39 2d | 70 20 62 6f 75 6e 64 70 |emacs19-|p boundp|
|00000910| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 6c 6f 63 61 | minibuf|fer-loca|
|00000920| 6c 2d 6e 73 2d 6d 61 70 | 20 6d 61 6b 65 2d 73 70 |l-ns-map| make-sp|
|00000930| 61 72 73 65 2d 6b 65 79 | 6d 61 70 20 70 75 74 20 |arse-key|map put |
|00000940| 76 61 72 69 61 62 6c 65 | 2d 64 6f 63 75 6d 65 6e |variable|-documen|
|00000950| 74 61 74 69 6f 6e 20 22 | 48 61 63 6b 20 74 6f 20 |tation "|Hack to |
|00000960| 67 69 76 65 20 4c 75 63 | 69 64 20 65 6d 61 63 73 |give Luc|id emacs|
|00000970| 20 74 68 65 20 73 61 6d | 65 20 6d 61 70 73 20 61 | the sam|e maps a|
|00000980| 73 20 47 4e 55 20 65 6d | 61 63 73 2e 22 5d 20 34 |s GNU em|acs."] 4|
|00000990| 29 0a 28 64 65 66 76 61 | 72 20 74 70 75 2d 65 64 |).(defva|r tpu-ed|
|000009a0| 74 2d 6d 6f 64 65 20 6e | 69 6c 20 22 5c 0a 49 66 |t-mode n|il "\.If|
|000009b0| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 54 50 55 2d 65 64 | non-nil|, TPU-ed|
|000009c0| 74 20 6d 6f 64 65 20 69 | 73 20 61 63 74 69 76 65 |t mode i|s active|
|000009d0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 74 70 75 2d |.").(def|var tpu-|
|000009e0| 6c 61 73 74 2d 72 65 70 | 6c 61 63 65 64 2d 74 65 |last-rep|laced-te|
|000009f0| 78 74 20 22 22 20 22 5c | 0a 4c 61 73 74 20 74 65 |xt "" "\|.Last te|
|00000a00| 78 74 20 64 65 6c 65 74 | 65 64 20 62 79 20 61 20 |xt delet|ed by a |
|00000a10| 54 50 55 2d 65 64 74 20 | 72 65 70 6c 61 63 65 20 |TPU-edt |replace |
|00000a20| 63 6f 6d 6d 61 6e 64 2e | 22 29 0a 28 64 65 66 76 |command.|").(defv|
|00000a30| 61 72 20 74 70 75 2d 6c | 61 73 74 2d 64 65 6c 65 |ar tpu-l|ast-dele|
|00000a40| 74 65 64 2d 72 65 67 69 | 6f 6e 20 22 22 20 22 5c |ted-regi|on "" "\|
|00000a50| 0a 4c 61 73 74 20 74 65 | 78 74 20 64 65 6c 65 74 |.Last te|xt delet|
|00000a60| 65 64 20 62 79 20 61 20 | 54 50 55 2d 65 64 74 20 |ed by a |TPU-edt |
|00000a70| 72 65 6d 6f 76 65 20 63 | 6f 6d 6d 61 6e 64 2e 22 |remove c|ommand."|
|00000a80| 29 0a 28 64 65 66 76 61 | 72 20 74 70 75 2d 6c 61 |).(defva|r tpu-la|
|00000a90| 73 74 2d 64 65 6c 65 74 | 65 64 2d 6c 69 6e 65 73 |st-delet|ed-lines|
|00000aa0| 20 22 22 20 22 5c 0a 4c | 61 73 74 20 74 65 78 74 | "" "\.L|ast text|
|00000ab0| 20 64 65 6c 65 74 65 64 | 20 62 79 20 61 20 54 50 | deleted| by a TP|
|00000ac0| 55 2d 65 64 74 20 6c 69 | 6e 65 2d 64 65 6c 65 74 |U-edt li|ne-delet|
|00000ad0| 65 20 63 6f 6d 6d 61 6e | 64 2e 22 29 0a 28 64 65 |e comman|d.").(de|
|00000ae0| 66 76 61 72 20 74 70 75 | 2d 6c 61 73 74 2d 64 65 |fvar tpu|-last-de|
|00000af0| 6c 65 74 65 64 2d 77 6f | 72 64 73 20 22 22 20 22 |leted-wo|rds "" "|
|00000b00| 5c 0a 4c 61 73 74 20 74 | 65 78 74 20 64 65 6c 65 |\.Last t|ext dele|
|00000b10| 74 65 64 20 62 79 20 61 | 20 54 50 55 2d 65 64 74 |ted by a| TPU-edt|
|00000b20| 20 77 6f 72 64 2d 64 65 | 6c 65 74 65 20 63 6f 6d | word-de|lete com|
|00000b30| 6d 61 6e 64 2e 22 29 0a | 28 64 65 66 76 61 72 20 |mand.").|(defvar |
|00000b40| 74 70 75 2d 6c 61 73 74 | 2d 64 65 6c 65 74 65 64 |tpu-last|-deleted|
|00000b50| 2d 63 68 61 72 20 22 22 | 20 22 5c 0a 4c 61 73 74 |-char ""| "\.Last|
|00000b60| 20 63 68 61 72 61 63 74 | 65 72 20 64 65 6c 65 74 | charact|er delet|
|00000b70| 65 64 20 62 79 20 61 20 | 54 50 55 2d 65 64 74 20 |ed by a |TPU-edt |
|00000b80| 63 68 61 72 61 63 74 65 | 72 2d 64 65 6c 65 74 65 |characte|r-delete|
|00000b90| 20 63 6f 6d 6d 61 6e 64 | 2e 22 29 0a 28 64 65 66 | command|.").(def|
|00000ba0| 76 61 72 20 74 70 75 2d | 73 65 61 72 63 68 69 6e |var tpu-|searchin|
|00000bb0| 67 2d 66 6f 72 77 61 72 | 64 20 74 20 22 5c 0a 49 |g-forwar|d t "\.I|
|00000bc0| 66 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 54 50 55 2d 65 |f non-ni|l, TPU-e|
|00000bd0| 64 74 20 69 73 20 73 65 | 61 72 63 68 69 6e 67 20 |dt is se|arching |
|00000be0| 69 6e 20 74 68 65 20 66 | 6f 72 77 61 72 64 20 64 |in the f|orward d|
|00000bf0| 69 72 65 63 74 69 6f 6e | 2e 22 29 0a 28 64 65 66 |irection|.").(def|
|00000c00| 76 61 72 20 74 70 75 2d | 73 65 61 72 63 68 2d 6c |var tpu-|search-l|
|00000c10| 61 73 74 2d 73 74 72 69 | 6e 67 20 22 22 20 22 5c |ast-stri|ng "" "\|
|00000c20| 0a 4c 61 73 74 20 74 65 | 78 74 20 73 65 61 72 63 |.Last te|xt searc|
|00000c30| 68 65 64 20 66 6f 72 20 | 62 79 20 74 68 65 20 54 |hed for |by the T|
|00000c40| 50 55 2d 65 64 74 20 73 | 65 61 72 63 68 20 63 6f |PU-edt s|earch co|
|00000c50| 6d 6d 61 6e 64 73 2e 22 | 29 0a 28 64 65 66 76 61 |mmands."|).(defva|
|00000c60| 72 20 74 70 75 2d 72 65 | 67 65 78 70 2d 70 20 6e |r tpu-re|gexp-p n|
|00000c70| 69 6c 20 22 5c 0a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |il "\.If| non-nil|
|00000c80| 2c 20 54 50 55 2d 65 64 | 74 20 75 73 65 73 20 72 |, TPU-ed|t uses r|
|00000c90| 65 67 65 78 70 20 73 65 | 61 72 63 68 20 61 6e 64 |egexp se|arch and|
|00000ca0| 20 72 65 70 6c 61 63 65 | 20 72 6f 75 74 69 6e 65 | replace| routine|
|00000cb0| 73 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 70 75 |s.").(de|fvar tpu|
|00000cc0| 2d 72 65 63 74 61 6e 67 | 75 6c 61 72 2d 70 20 6e |-rectang|ular-p n|
|00000cd0| 69 6c 20 22 5c 0a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |il "\.If| non-nil|
|00000ce0| 2c 20 54 50 55 2d 65 64 | 74 20 72 65 6d 6f 76 65 |, TPU-ed|t remove|
|00000cf0| 73 20 61 6e 64 20 69 6e | 73 65 72 74 73 20 72 65 |s and in|serts re|
|00000d00| 63 74 61 6e 67 6c 65 73 | 2e 22 29 0a 28 64 65 66 |ctangles|.").(def|
|00000d10| 76 61 72 20 74 70 75 2d | 61 64 76 61 6e 63 65 20 |var tpu-|advance |
|00000d20| 74 20 22 5c 0a 54 72 75 | 65 20 77 68 65 6e 20 54 |t "\.Tru|e when T|
|00000d30| 50 55 2d 65 64 74 20 69 | 73 20 6f 70 65 72 61 74 |PU-edt i|s operat|
|00000d40| 69 6e 67 20 69 6e 20 74 | 68 65 20 66 6f 72 77 61 |ing in t|he forwa|
|00000d50| 72 64 20 64 69 72 65 63 | 74 69 6f 6e 2e 22 29 0a |rd direc|tion.").|
|00000d60| 28 64 65 66 76 61 72 20 | 74 70 75 2d 72 65 76 65 |(defvar |tpu-reve|
|00000d70| 72 73 65 20 6e 69 6c 20 | 22 5c 0a 54 72 75 65 20 |rse nil |"\.True |
|00000d80| 77 68 65 6e 20 54 50 55 | 2d 65 64 74 20 69 73 20 |when TPU|-edt is |
|00000d90| 6f 70 65 72 61 74 69 6e | 67 20 69 6e 20 74 68 65 |operatin|g in the|
|00000da0| 20 62 61 63 6b 77 61 72 | 64 20 64 69 72 65 63 74 | backwar|d direct|
|00000db0| 69 6f 6e 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |ion.").(|defvar t|
|00000dc0| 70 75 2d 63 6f 6e 74 72 | 6f 6c 2d 6b 65 79 73 20 |pu-contr|ol-keys |
|00000dd0| 74 20 22 5c 0a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |t "\.If |non-nil,|
|00000de0| 20 63 6f 6e 74 72 6f 6c | 20 6b 65 79 73 20 61 72 | control| keys ar|
|00000df0| 65 20 73 65 74 20 74 6f | 20 70 65 72 66 6f 72 6d |e set to| perform|
|00000e00| 20 54 50 55 20 66 75 6e | 63 74 69 6f 6e 73 2e 22 | TPU fun|ctions."|
|00000e10| 29 0a 28 64 65 66 76 61 | 72 20 74 70 75 2d 78 6b |).(defva|r tpu-xk|
|00000e20| 65 79 73 2d 66 69 6c 65 | 20 6e 69 6c 20 22 5c 0a |eys-file| nil "\.|
|00000e30| 46 69 6c 65 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |File con|taining |
|00000e40| 54 50 55 2d 65 64 74 20 | 58 20 6b 65 79 20 6d 61 |TPU-edt |X key ma|
|00000e50| 70 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 70 75 |p.").(de|fvar tpu|
|00000e60| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 73 74 72 69 6e |-rectang|le-strin|
|00000e70| 67 20 6e 69 6c 20 22 5c | 0a 4d 6f 64 65 20 6c 69 |g nil "\|.Mode li|
|00000e80| 6e 65 20 73 74 72 69 6e | 67 20 74 6f 20 69 64 65 |ne strin|g to ide|
|00000e90| 6e 74 69 66 79 20 72 65 | 63 74 61 6e 67 75 6c 61 |ntify re|ctangula|
|00000ea0| 72 20 6d 6f 64 65 2e 22 | 29 0a 28 64 65 66 76 61 |r mode."|).(defva|
|00000eb0| 72 20 74 70 75 2d 64 69 | 72 65 63 74 69 6f 6e 2d |r tpu-di|rection-|
|00000ec0| 73 74 72 69 6e 67 20 6e | 69 6c 20 22 5c 0a 4d 6f |string n|il "\.Mo|
|00000ed0| 64 65 20 6c 69 6e 65 20 | 73 74 72 69 6e 67 20 74 |de line |string t|
|00000ee0| 6f 20 69 64 65 6e 74 69 | 66 79 20 63 75 72 72 65 |o identi|fy curre|
|00000ef0| 6e 74 20 64 69 72 65 63 | 74 69 6f 6e 2e 22 29 0a |nt direc|tion.").|
|00000f00| 28 64 65 66 76 61 72 20 | 74 70 75 2d 61 64 64 2d |(defvar |tpu-add-|
|00000f10| 61 74 2d 62 6f 6c 2d 68 | 69 73 74 20 6e 69 6c 20 |at-bol-h|ist nil |
|00000f20| 22 5c 0a 48 69 73 74 6f | 72 79 20 76 61 72 69 61 |"\.Histo|ry varia|
|00000f30| 62 6c 65 20 66 6f 72 20 | 74 70 75 2d 65 64 74 2d |ble for |tpu-edt-|
|00000f40| 61 64 64 2d 61 74 2d 62 | 6f 6c 20 66 75 6e 63 74 |add-at-b|ol funct|
|00000f50| 69 6f 6e 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |ion.").(|defvar t|
|00000f60| 70 75 2d 61 64 64 2d 61 | 74 2d 65 6f 6c 2d 68 69 |pu-add-a|t-eol-hi|
|00000f70| 73 74 20 6e 69 6c 20 22 | 5c 0a 48 69 73 74 6f 72 |st nil "|\.Histor|
|00000f80| 79 20 76 61 72 69 61 62 | 6c 65 20 66 6f 72 20 74 |y variab|le for t|
|00000f90| 70 75 2d 65 64 74 2d 61 | 64 64 2d 61 74 2d 65 6f |pu-edt-a|dd-at-eo|
|00000fa0| 6c 20 66 75 6e 63 74 69 | 6f 6e 2e 22 29 0a 28 64 |l functi|on.").(d|
|00000fb0| 65 66 76 61 72 20 74 70 | 75 2d 72 65 67 65 78 70 |efvar tp|u-regexp|
|00000fc0| 2d 70 72 6f 6d 70 74 2d | 68 69 73 74 20 6e 69 6c |-prompt-|hist nil|
|00000fd0| 20 22 5c 0a 48 69 73 74 | 6f 72 79 20 76 61 72 69 | "\.Hist|ory vari|
|00000fe0| 61 62 6c 65 20 66 6f 72 | 20 73 65 61 72 63 68 20 |able for| search |
|00000ff0| 61 6e 64 20 72 65 70 6c | 61 63 65 20 66 75 6e 63 |and repl|ace func|
|00001000| 74 69 6f 6e 73 2e 22 29 | 0a 28 64 65 66 76 61 72 |tions.")|.(defvar|
|00001010| 20 74 70 75 2d 6e 65 77 | 6c 69 6e 65 2d 61 6e 64 | tpu-new|line-and|
|00001020| 2d 69 6e 64 65 6e 74 2d | 70 20 6e 69 6c 20 22 5c |-indent-|p nil "\|
|00001030| 0a 49 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 52 65 74 |.If non-|nil, Ret|
|00001040| 75 72 6e 20 70 72 6f 64 | 75 63 65 73 20 61 20 6e |urn prod|uces a n|
|00001050| 65 77 6c 69 6e 65 20 61 | 6e 64 20 69 6e 64 65 6e |ewline a|nd inden|
|00001060| 74 73 2e 22 29 0a 28 6d | 61 6b 65 2d 76 61 72 69 |ts.").(m|ake-vari|
|00001070| 61 62 6c 65 2d 62 75 66 | 66 65 72 2d 6c 6f 63 61 |able-buf|fer-loca|
|00001080| 6c 20 28 71 75 6f 74 65 | 20 74 70 75 2d 6e 65 77 |l (quote| tpu-new|
|00001090| 6c 69 6e 65 2d 61 6e 64 | 2d 69 6e 64 65 6e 74 2d |line-and|-indent-|
|000010a0| 70 29 29 0a 28 64 65 66 | 76 61 72 20 74 70 75 2d |p)).(def|var tpu-|
|000010b0| 6e 65 77 6c 69 6e 65 2d | 61 6e 64 2d 69 6e 64 65 |newline-|and-inde|
|000010c0| 6e 74 2d 73 74 72 69 6e | 67 20 6e 69 6c 20 22 5c |nt-strin|g nil "\|
|000010d0| 0a 4d 6f 64 65 20 6c 69 | 6e 65 20 73 74 72 69 6e |.Mode li|ne strin|
|000010e0| 67 20 74 6f 20 69 64 65 | 6e 74 69 66 79 20 41 75 |g to ide|ntify Au|
|000010f0| 74 6f 49 6e 64 65 6e 74 | 20 6d 6f 64 65 2e 22 29 |toIndent| mode.")|
|00001100| 0a 28 6d 61 6b 65 2d 76 | 61 72 69 61 62 6c 65 2d |.(make-v|ariable-|
|00001110| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 20 28 71 75 |buffer-l|ocal (qu|
|00001120| 6f 74 65 20 74 70 75 2d | 6e 65 77 6c 69 6e 65 2d |ote tpu-|newline-|
|00001130| 61 6e 64 2d 69 6e 64 65 | 6e 74 2d 73 74 72 69 6e |and-inde|nt-strin|
|00001140| 67 29 29 0a 28 64 65 66 | 76 61 72 20 74 70 75 2d |g)).(def|var tpu-|
|00001150| 73 61 76 65 64 2d 64 65 | 6c 65 74 65 2d 66 75 6e |saved-de|lete-fun|
|00001160| 63 20 6e 69 6c 20 22 5c | 0a 53 61 76 65 64 20 76 |c nil "\|.Saved v|
|00001170| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 64 65 6c 65 |alue of |the dele|
|00001180| 74 65 20 6b 65 79 2e 22 | 29 0a 28 6d 61 6b 65 2d |te key."|).(make-|
|00001190| 76 61 72 69 61 62 6c 65 | 2d 62 75 66 66 65 72 2d |variable|-buffer-|
|000011a0| 6c 6f 63 61 6c 20 28 71 | 75 6f 74 65 20 74 70 75 |local (q|uote tpu|
|000011b0| 2d 73 61 76 65 64 2d 64 | 65 6c 65 74 65 2d 66 75 |-saved-d|elete-fu|
|000011c0| 6e 63 29 29 0a 28 64 65 | 66 76 61 72 20 74 70 75 |nc)).(de|fvar tpu|
|000011d0| 2d 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 2d 6d 61 |-buffer-|local-ma|
|000011e0| 70 20 6e 69 6c 20 22 5c | 0a 54 50 55 2d 65 64 74 |p nil "\|.TPU-edt|
|000011f0| 20 62 75 66 66 65 72 20 | 6c 6f 63 61 6c 20 6b 65 | buffer |local ke|
|00001200| 79 20 6d 61 70 2e 22 29 | 0a 28 62 79 74 65 2d 63 |y map.")|.(byte-c|
|00001210| 6f 64 65 20 22 c0 c1 21 | 88 c2 c3 21 84 5c 66 00 |ode "..!|...!.\f.|
|00001220| 5c 66 13 c2 c5 21 84 15 | 00 0e 06 15 c2 c7 21 84 |\f...!..|......!.|
|00001230| 1e 00 c8 16 07 c0 c7 21 | 87 22 20 5b 6d 61 6b 65 |.......!|." [make|
|00001240| 2d 76 61 72 69 61 62 6c | 65 2d 62 75 66 66 65 72 |-variabl|e-buffer|
|00001250| 2d 6c 6f 63 61 6c 20 74 | 70 75 2d 62 75 66 66 65 |-local t|pu-buffe|
|00001260| 72 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 62 6f 75 6e |r-local-|map boun|
|00001270| 64 70 20 74 70 75 2d 6f | 72 69 67 69 6e 61 6c 2d |dp tpu-o|riginal-|
|00001280| 6d 6f 64 65 2d 6c 69 6e | 65 20 6d 6f 64 65 2d 6c |mode-lin|e mode-l|
|00001290| 69 6e 65 2d 66 6f 72 6d | 61 74 20 74 70 75 2d 6f |ine-form|at tpu-o|
|000012a0| 72 69 67 69 6e 61 6c 2d | 6d 6d 2d 61 6c 69 73 74 |riginal-|mm-alist|
|000012b0| 20 6d 69 6e 6f 72 2d 6d | 6f 64 65 2d 61 6c 69 73 | minor-m|ode-alis|
|000012c0| 74 20 74 70 75 2d 6d 61 | 72 6b 2d 66 6c 61 67 20 |t tpu-ma|rk-flag |
|000012d0| 22 20 22 5d 20 32 29 0a | 28 64 65 66 61 6c 69 61 |" "] 2).|(defalia|
|000012e0| 73 20 27 74 70 75 2d 73 | 65 74 2d 6d 6f 64 65 2d |s 'tpu-s|et-mode-|
|000012f0| 6c 69 6e 65 20 23 5b 28 | 66 6f 72 2d 74 70 75 29 |line #[(|for-tpu)|
|00001300| 20 22 08 84 5c 6e 00 09 | 12 0b 89 14 87 c5 c2 c6 | "..\n..|........|
|00001310| c7 21 c8 c9 c6 ca 21 cb | c6 ca 21 cc c6 cd 21 ce |.!....!.|..!...!.|
|00001320| cf c4 d0 c6 d1 21 c6 d2 | 21 c6 d3 21 af 0f 5c 22 |.....!..|!..!..\"|
|00001330| 88 d4 5c 66 9e 84 37 00 | d5 5c 66 42 14 d6 5c 66 |..\f..7.|.\fB..\f|
|00001340| 9e 84 41 00 d7 5c 66 42 | 14 d8 5c 66 9e 86 4c 00 |..A..\fB|..\f..L.|
|00001350| d9 5c 66 42 89 14 87 22 | 20 5b 66 6f 72 2d 74 70 |.\fB..."| [for-tp|
|00001360| 75 20 74 70 75 2d 6f 72 | 69 67 69 6e 61 6c 2d 6d |u tpu-or|iginal-m|
|00001370| 6f 64 65 2d 6c 69 6e 65 | 20 6d 6f 64 65 2d 6c 69 |ode-line| mode-li|
|00001380| 6e 65 2d 66 6f 72 6d 61 | 74 20 74 70 75 2d 6f 72 |ne-forma|t tpu-or|
|00001390| 69 67 69 6e 61 6c 2d 6d | 6d 2d 61 6c 69 73 74 20 |iginal-m|m-alist |
|000013a0| 6d 69 6e 6f 72 2d 6d 6f | 64 65 2d 61 6c 69 73 74 |minor-mo|de-alist|
|000013b0| 20 73 65 74 2d 64 65 66 | 61 75 6c 74 20 70 75 72 | set-def|ault pur|
|000013c0| 65 63 6f 70 79 20 22 22 | 20 6d 6f 64 65 2d 6c 69 |ecopy ""| mode-li|
|000013d0| 6e 65 2d 6d 6f 64 69 66 | 69 65 64 20 6d 6f 64 65 |ne-modif|ied mode|
|000013e0| 2d 6c 69 6e 65 2d 62 75 | 66 66 65 72 2d 69 64 65 |-line-bu|ffer-ide|
|000013f0| 6e 74 69 66 69 63 61 74 | 69 6f 6e 20 22 20 20 22 |ntificat|ion " "|
|00001400| 20 67 6c 6f 62 61 6c 2d | 6d 6f 64 65 2d 73 74 72 | global-|mode-str|
|00001410| 69 6e 67 20 74 70 75 2d | 6d 61 72 6b 2d 66 6c 61 |ing tpu-|mark-fla|
|00001420| 67 20 22 20 25 5b 28 22 | 20 6d 6f 64 65 2d 6e 61 |g " %[("| mode-na|
|00001430| 6d 65 20 6d 6f 64 65 2d | 6c 69 6e 65 2d 70 72 6f |me mode-|line-pro|
|00001440| 63 65 73 73 20 22 25 6e | 22 20 22 29 25 5d 2d 2d |cess "%n|" ")%]--|
|00001450| 2d 2d 22 20 28 2d 33 20 | 2e 20 22 25 70 22 29 20 |--" (-3 |. "%p") |
|00001460| 22 2d 25 2d 22 20 74 70 | 75 2d 6e 65 77 6c 69 6e |"-%-" tp|u-newlin|
|00001470| 65 2d 61 6e 64 2d 69 6e | 64 65 6e 74 2d 70 20 28 |e-and-in|dent-p (|
|00001480| 74 70 75 2d 6e 65 77 6c | 69 6e 65 2d 61 6e 64 2d |tpu-newl|ine-and-|
|00001490| 69 6e 64 65 6e 74 2d 70 | 20 74 70 75 2d 6e 65 77 |indent-p| tpu-new|
|000014a0| 6c 69 6e 65 2d 61 6e 64 | 2d 69 6e 64 65 6e 74 2d |line-and|-indent-|
|000014b0| 73 74 72 69 6e 67 29 20 | 74 70 75 2d 72 65 63 74 |string) |tpu-rect|
|000014c0| 61 6e 67 75 6c 61 72 2d | 70 20 28 74 70 75 2d 72 |angular-|p (tpu-r|
|000014d0| 65 63 74 61 6e 67 75 6c | 61 72 2d 70 20 74 70 75 |ectangul|ar-p tpu|
|000014e0| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 73 74 72 69 6e |-rectang|le-strin|
|000014f0| 67 29 20 74 70 75 2d 64 | 69 72 65 63 74 69 6f 6e |g) tpu-d|irection|
|00001500| 2d 73 74 72 69 6e 67 20 | 28 74 70 75 2d 64 69 72 |-string |(tpu-dir|
|00001510| 65 63 74 69 6f 6e 2d 73 | 74 72 69 6e 67 20 74 70 |ection-s|tring tp|
|00001520| 75 2d 64 69 72 65 63 74 | 69 6f 6e 2d 73 74 72 69 |u-direct|ion-stri|
|00001530| 6e 67 29 5d 20 31 38 20 | 22 5c 0a 53 65 74 20 74 |ng)] 18 |"\.Set t|
|00001540| 68 65 20 6d 6f 64 65 20 | 66 6f 72 20 54 50 55 2d |he mode |for TPU-|
|00001550| 65 64 74 2c 20 6f 72 20 | 72 65 73 65 74 20 69 74 |edt, or |reset it|
|00001560| 20 74 6f 20 64 65 66 61 | 75 6c 74 20 45 6d 61 63 | to defa|ult Emac|
|00001570| 73 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |s."]).(d|efalias |
|00001580| 27 74 70 75 2d 75 70 64 | 61 74 65 2d 6d 6f 64 65 |'tpu-upd|ate-mode|
|00001590| 2d 6c 69 6e 65 20 23 5b | 6e 69 6c 20 22 c0 20 83 |-line #[|nil ". .|
|000015a0| 09 00 c1 82 5c 6e 00 c2 | 13 5c 66 83 12 00 c5 20 |....\n..|.\f.... |
|000015b0| 87 c6 c7 20 21 88 c8 c9 | 21 87 22 20 5b 74 70 75 |... !...|!." [tpu|
|000015c0| 2d 6d 61 72 6b 20 22 4d | 22 20 22 20 22 20 74 70 |-mark "M|" " " tp|
|000015d0| 75 2d 6d 61 72 6b 2d 66 | 6c 61 67 20 74 70 75 2d |u-mark-f|lag tpu-|
|000015e0| 65 6d 61 63 73 31 39 2d | 70 20 66 6f 72 63 65 2d |emacs19-|p force-|
|000015f0| 6d 6f 64 65 2d 6c 69 6e | 65 2d 75 70 64 61 74 65 |mode-lin|e-update|
|00001600| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|00001610| 66 69 65 64 2d 70 20 62 | 75 66 66 65 72 2d 6d 6f |fied-p b|uffer-mo|
|00001620| 64 69 66 69 65 64 2d 70 | 20 73 69 74 2d 66 6f 72 |dified-p| sit-for|
|00001630| 20 30 5d 20 32 20 22 5c | 0a 4d 61 6b 65 20 73 75 | 0] 2 "\|.Make su|
|00001640| 72 65 20 6d 6f 64 65 2d | 6c 69 6e 65 20 69 6e 20 |re mode-|line in |
|00001650| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00001660| 65 72 20 72 65 66 6c 65 | 63 74 73 20 61 6c 6c 20 |er refle|cts all |
|00001670| 63 68 61 6e 67 65 73 2e | 22 5d 29 0a 28 62 79 74 |changes.|"]).(byt|
|00001680| 65 2d 63 6f 64 65 20 22 | 08 83 11 00 c1 c2 c3 5c |e-code "|.......\|
|00001690| 22 88 c1 c4 c3 5c 22 88 | 82 1f 00 0d 83 1f 00 c1 |"....\".|........|
|000016a0| c6 c3 5c 22 88 c1 c7 c3 | 5c 22 88 c8 c9 21 84 29 |..\"....|\"...!.)|
|000016b0| 00 ca 20 16 09 c8 cb 21 | 84 33 00 ca 20 16 0b c1 |.. ....!|.3.. ...|
|000016c0| 87 22 20 5b 74 70 75 2d | 67 6e 75 2d 65 6d 61 63 |." [tpu-|gnu-emac|
|000016d0| 73 31 39 2d 70 20 61 64 | 64 2d 68 6f 6f 6b 20 61 |s19-p ad|d-hook a|
|000016e0| 63 74 69 76 61 74 65 2d | 6d 61 72 6b 2d 68 6f 6f |ctivate-|mark-hoo|
|000016f0| 6b 20 74 70 75 2d 75 70 | 64 61 74 65 2d 6d 6f 64 |k tpu-up|date-mod|
|00001700| 65 2d 6c 69 6e 65 20 64 | 65 61 63 74 69 76 61 74 |e-line d|eactivat|
|00001710| 65 2d 6d 61 72 6b 2d 68 | 6f 6f 6b 20 74 70 75 2d |e-mark-h|ook tpu-|
|00001720| 6c 75 63 69 64 2d 65 6d | 61 63 73 31 39 2d 70 20 |lucid-em|acs19-p |
|00001730| 7a 6d 61 63 73 2d 64 65 | 61 63 74 69 76 61 74 65 |zmacs-de|activate|
|00001740| 2d 72 65 67 69 6f 6e 2d | 68 6f 6f 6b 20 7a 6d 61 |-region-|hook zma|
|00001750| 63 73 2d 61 63 74 69 76 | 61 74 65 2d 72 65 67 69 |cs-activ|ate-regi|
|00001760| 6f 6e 2d 68 6f 6f 6b 20 | 62 6f 75 6e 64 70 20 74 |on-hook |boundp t|
|00001770| 70 75 2d 6d 61 74 63 68 | 2d 62 65 67 69 6e 6e 69 |pu-match|-beginni|
|00001780| 6e 67 2d 6d 61 72 6b 20 | 6d 61 6b 65 2d 6d 61 72 |ng-mark |make-mar|
|00001790| 6b 65 72 20 74 70 75 2d | 6d 61 74 63 68 2d 65 6e |ker tpu-|match-en|
|000017a0| 64 2d 6d 61 72 6b 5d 20 | 33 29 0a 28 64 65 66 61 |d-mark] |3).(defa|
|000017b0| 6c 69 61 73 20 27 74 70 | 75 2d 73 65 74 2d 6d 61 |lias 'tp|u-set-ma|
|000017c0| 74 63 68 20 23 5b 6e 69 | 6c 20 22 c0 c1 94 54 21 |tch #[ni|l "...T!|
|000017d0| 12 c0 c1 95 21 89 13 87 | 22 20 5b 63 6f 70 79 2d |....!...|" [copy-|
|000017e0| 6d 61 72 6b 65 72 20 30 | 20 74 70 75 2d 6d 61 74 |marker 0| tpu-mat|
|000017f0| 63 68 2d 62 65 67 69 6e | 6e 69 6e 67 2d 6d 61 72 |ch-begin|ning-mar|
|00001800| 6b 20 74 70 75 2d 6d 61 | 74 63 68 2d 65 6e 64 2d |k tpu-ma|tch-end-|
|00001810| 6d 61 72 6b 5d 20 32 20 | 22 5c 0a 53 65 74 20 6d |mark] 2 |"\.Set m|
|00001820| 61 72 6b 65 72 73 20 61 | 74 20 6d 61 74 63 68 20 |arkers a|t match |
|00001830| 62 65 67 69 6e 6e 69 6e | 67 20 61 6e 64 20 65 6e |beginnin|g and en|
|00001840| 64 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d."]).(d|efalias |
|00001850| 27 74 70 75 2d 75 6e 73 | 65 74 2d 6d 61 74 63 68 |'tpu-uns|et-match|
|00001860| 20 23 5b 6e 69 6c 20 22 | 08 c1 89 93 88 5c 6e c1 | #[nil "|.....\n.|
|00001870| 89 93 87 22 20 5b 74 70 | 75 2d 6d 61 74 63 68 2d |..." [tp|u-match-|
|00001880| 62 65 67 69 6e 6e 69 6e | 67 2d 6d 61 72 6b 20 6e |beginnin|g-mark n|
|00001890| 69 6c 20 74 70 75 2d 6d | 61 74 63 68 2d 65 6e 64 |il tpu-m|atch-end|
|000018a0| 2d 6d 61 72 6b 5d 20 33 | 20 22 5c 0a 55 6e 73 65 |-mark] 3| "\.Unse|
|000018b0| 74 20 6d 61 74 63 68 20 | 62 65 67 69 6e 6e 69 6e |t match |beginnin|
|000018c0| 67 20 61 6e 64 20 65 6e | 64 20 6d 61 72 6b 65 72 |g and en|d marker|
|000018d0| 73 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |s."]).(d|efalias |
|000018e0| 27 74 70 75 2d 6d 61 74 | 63 68 2d 62 65 67 69 6e |'tpu-mat|ch-begin|
|000018f0| 6e 69 6e 67 20 23 5b 6e | 69 6c 20 22 c0 09 21 53 |ning #[n|il "..!S|
|00001900| 87 22 20 5b 6d 61 72 6b | 65 72 2d 70 6f 73 69 74 |." [mark|er-posit|
|00001910| 69 6f 6e 20 74 70 75 2d | 6d 61 74 63 68 2d 62 65 |ion tpu-|match-be|
|00001920| 67 69 6e 6e 69 6e 67 2d | 6d 61 72 6b 5d 20 32 20 |ginning-|mark] 2 |
|00001930| 22 5c 0a 52 65 74 75 72 | 6e 73 20 74 68 65 20 6c |"\.Retur|ns the l|
|00001940| 6f 63 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 6c |ocation |of the l|
|00001950| 61 73 74 20 6d 61 74 63 | 68 20 62 65 67 69 6e 6e |ast matc|h beginn|
|00001960| 69 6e 67 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ing."]).|(defalia|
|00001970| 73 20 27 74 70 75 2d 6d | 61 74 63 68 2d 65 6e 64 |s 'tpu-m|atch-end|
|00001980| 20 23 5b 6e 69 6c 20 22 | c0 09 21 87 22 20 5b 6d | #[nil "|..!." [m|
|00001990| 61 72 6b 65 72 2d 70 6f | 73 69 74 69 6f 6e 20 74 |arker-po|sition t|
|000019a0| 70 75 2d 6d 61 74 63 68 | 2d 65 6e 64 2d 6d 61 72 |pu-match|-end-mar|
|000019b0| 6b 5d 20 32 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |k] 2 "\.|Returns |
|000019c0| 74 68 65 20 6c 6f 63 61 | 74 69 6f 6e 20 6f 66 20 |the loca|tion of |
|000019d0| 74 68 65 20 6c 61 73 74 | 20 6d 61 74 63 68 20 65 |the last| match e|
|000019e0| 6e 64 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |nd."]).(|defalias|
|000019f0| 20 27 74 70 75 2d 63 68 | 65 63 6b 2d 6d 61 74 63 | 'tpu-ch|eck-matc|
|00001a00| 68 20 23 5b 6e 69 6c 20 | 22 c0 09 21 70 9a 83 2e |h #[nil |"..!p...|
|00001a10| 00 60 c2 09 21 53 59 83 | 2e 00 60 c2 0b 21 57 84 |.`..!SY.|..`..!W.|
|00001a20| 2c 00 c2 09 21 53 c2 0b | 21 55 83 2e 00 c2 0b 21 |,...!S..|!U.....!|
|00001a30| 60 55 83 2e 00 c4 87 c5 | 20 88 c6 87 22 20 5b 6d |`U......| ..." [m|
|00001a40| 61 72 6b 65 72 2d 62 75 | 66 66 65 72 20 74 70 75 |arker-bu|ffer tpu|
|00001a50| 2d 6d 61 74 63 68 2d 62 | 65 67 69 6e 6e 69 6e 67 |-match-b|eginning|
|00001a60| 2d 6d 61 72 6b 20 6d 61 | 72 6b 65 72 2d 70 6f 73 |-mark ma|rker-pos|
|00001a70| 69 74 69 6f 6e 20 74 70 | 75 2d 6d 61 74 63 68 2d |ition tp|u-match-|
|00001a80| 65 6e 64 2d 6d 61 72 6b | 20 74 20 74 70 75 2d 75 |end-mark| t tpu-u|
|00001a90| 6e 73 65 74 2d 6d 61 74 | 63 68 20 6e 69 6c 5d 20 |nset-mat|ch nil] |
|00001aa0| 33 20 22 5c 0a 52 65 74 | 75 72 6e 73 20 74 20 69 |3 "\.Ret|urns t i|
|00001ab0| 66 20 70 6f 69 6e 74 20 | 69 73 20 62 65 74 77 65 |f point |is betwe|
|00001ac0| 65 6e 20 74 70 75 2d 6d | 61 74 63 68 20 6d 61 72 |en tpu-m|atch mar|
|00001ad0| 6b 65 72 73 2e 0a 4f 74 | 68 65 72 77 69 73 65 20 |kers..Ot|herwise |
|00001ae0| 73 65 74 73 20 74 68 65 | 20 74 70 75 2d 6d 61 74 |sets the| tpu-mat|
|00001af0| 63 68 20 6d 61 72 6b 65 | 72 73 20 74 6f 20 6e 69 |ch marke|rs to ni|
|00001b00| 6c 20 61 6e 64 20 72 65 | 74 75 72 6e 73 20 6e 69 |l and re|turns ni|
|00001b10| 6c 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |l."]).(d|efalias |
|00001b20| 27 74 70 75 2d 73 68 6f | 77 2d 6d 61 74 63 68 2d |'tpu-sho|w-match-|
|00001b30| 6d 61 72 6b 65 72 73 20 | 23 5b 6e 69 6c 20 22 c0 |markers |#[nil ".|
|00001b40| 09 21 85 1f 00 c2 09 21 | 1b c4 c5 0b 85 12 00 0b |.!.....!|........|
|00001b50| 53 c2 0e 06 21 c7 0e 06 | 21 60 70 26 06 29 87 22 |S...!...|!`p&.)."|
|00001b60| 20 5b 6d 61 72 6b 65 72 | 70 20 74 70 75 2d 6d 61 | [marker|p tpu-ma|
|00001b70| 74 63 68 2d 62 65 67 69 | 6e 6e 69 6e 67 2d 6d 61 |tch-begi|nning-ma|
|00001b80| 72 6b 20 6d 61 72 6b 65 | 72 2d 70 6f 73 69 74 69 |rk marke|r-positi|
|00001b90| 6f 6e 20 62 65 67 20 6d | 65 73 73 61 67 65 20 22 |on beg m|essage "|
|00001ba0| 28 25 73 2c 20 25 73 29 | 20 69 6e 20 25 73 20 2d |(%s, %s)| in %s -|
|00001bb0| 2d 20 63 75 72 72 65 6e | 74 20 25 73 20 69 6e 20 |- curren|t %s in |
|00001bc0| 25 73 22 20 74 70 75 2d | 6d 61 74 63 68 2d 65 6e |%s" tpu-|match-en|
|00001bd0| 64 2d 6d 61 72 6b 20 6d | 61 72 6b 65 72 2d 62 75 |d-mark m|arker-bu|
|00001be0| 66 66 65 72 5d 20 37 20 | 22 5c 0a 53 68 6f 77 20 |ffer] 7 |"\.Show |
|00001bf0| 74 68 65 20 76 61 6c 75 | 65 73 20 6f 66 20 74 68 |the valu|es of th|
|00001c00| 65 20 6d 61 74 63 68 20 | 6d 61 72 6b 65 72 73 2e |e match |markers.|
|00001c10| 22 20 6e 69 6c 5d 29 0a | 28 62 79 74 65 2d 63 6f |" nil]).|(byte-co|
|00001c20| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 87 |de "...\|"....\".|
|00001c30| 22 20 5b 64 65 66 61 6c | 69 61 73 20 74 70 75 2d |" [defal|ias tpu-|
|00001c40| 63 61 61 72 20 23 5b 28 | 74 68 69 6e 67 79 29 20 |caar #[(|thingy) |
|00001c50| 22 08 40 40 87 22 20 5b | 74 68 69 6e 67 79 5d 20 |".@@." [|thingy] |
|00001c60| 31 5d 20 74 70 75 2d 63 | 61 64 72 20 23 5b 28 74 |1] tpu-c|adr #[(t|
|00001c70| 68 69 6e 67 79 29 20 22 | 08 41 40 87 22 20 5b 74 |hingy) "|.A@." [t|
|00001c80| 68 69 6e 67 79 5d 20 31 | 5d 5d 20 33 29 0a 28 64 |hingy] 1|]] 3).(d|
|00001c90| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 6d 61 72 |efalias |'tpu-mar|
|00001ca0| 6b 20 23 5b 6e 69 6c 20 | 22 08 83 09 00 c1 5c 6e |k #[nil |".....\n|
|00001cb0| 3f 21 87 0b 83 16 00 5c | 66 85 18 00 c1 0d 3f 21 |?!.....\|f.....?!|
|00001cc0| 87 c1 20 87 22 20 5b 74 | 70 75 2d 6c 75 63 69 64 |.. ." [t|pu-lucid|
|00001cd0| 2d 65 6d 61 63 73 31 39 | 2d 70 20 6d 61 72 6b 20 |-emacs19|-p mark |
|00001ce0| 7a 6d 61 63 73 2d 72 65 | 67 69 6f 6e 73 20 74 70 |zmacs-re|gions tp|
|00001cf0| 75 2d 67 6e 75 2d 65 6d | 61 63 73 31 39 2d 70 20 |u-gnu-em|acs19-p |
|00001d00| 6d 61 72 6b 2d 61 63 74 | 69 76 65 20 74 72 61 6e |mark-act|ive tran|
|00001d10| 73 69 65 6e 74 2d 6d 61 | 72 6b 2d 6d 6f 64 65 5d |sient-ma|rk-mode]|
|00001d20| 20 32 20 22 5c 0a 54 50 | 55 2d 65 64 74 20 76 65 | 2 "\.TP|U-edt ve|
|00001d30| 72 73 69 6f 6e 20 6f 66 | 20 74 68 65 20 6d 61 72 |rsion of| the mar|
|00001d40| 6b 20 66 75 6e 63 74 69 | 6f 6e 2e 0a 52 65 74 75 |k functi|on..Retu|
|00001d50| 72 6e 20 74 68 65 20 61 | 70 70 72 6f 70 72 69 61 |rn the a|ppropria|
|00001d60| 74 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |te value| of the |
|00001d70| 6d 61 72 6b 20 66 6f 72 | 20 74 68 65 20 63 75 72 |mark for| the cur|
|00001d80| 72 65 6e 74 0a 76 65 72 | 73 69 6f 6e 20 6f 66 20 |rent.ver|sion of |
|00001d90| 65 6d 61 63 73 2e 22 5d | 29 0a 28 64 65 66 61 6c |emacs."]|).(defal|
|00001da0| 69 61 73 20 27 74 70 75 | 2d 73 65 74 2d 6d 61 72 |ias 'tpu|-set-mar|
|00001db0| 6b 20 23 5b 28 70 6f 73 | 29 20 22 c0 09 21 88 5c |k #[(pos|) "..!.\|
|00001dc0| 6e 85 0e 00 09 85 0e 00 | c3 20 87 22 20 5b 73 65 |n.......|. ." [se|
|00001dd0| 74 2d 6d 61 72 6b 20 70 | 6f 73 20 74 70 75 2d 6c |t-mark p|os tpu-l|
|00001de0| 75 63 69 64 2d 65 6d 61 | 63 73 31 39 2d 70 20 7a |ucid-ema|cs19-p z|
|00001df0| 6d 61 63 73 2d 61 63 74 | 69 76 61 74 65 2d 72 65 |macs-act|ivate-re|
|00001e00| 67 69 6f 6e 5d 20 32 20 | 22 5c 0a 54 50 55 2d 65 |gion] 2 |"\.TPU-e|
|00001e10| 64 74 20 76 65 72 69 6f | 6e 20 6f 66 20 74 68 65 |dt verio|n of the|
|00001e20| 20 73 65 74 2d 6d 61 72 | 6b 20 66 75 6e 63 74 69 | set-mar|k functi|
|00001e30| 6f 6e 2e 0a 53 65 74 73 | 20 74 68 65 20 6d 61 72 |on..Sets| the mar|
|00001e40| 6b 20 61 74 20 50 4f 53 | 20 61 6e 64 20 61 63 74 |k at POS| and act|
|00001e50| 69 76 61 74 65 73 20 74 | 68 65 20 72 65 67 69 6f |ivates t|he regio|
|00001e60| 6e 20 61 63 6f 72 64 69 | 6e 67 20 74 6f 20 74 68 |n acordi|ng to th|
|00001e70| 65 0a 63 75 72 72 65 6e | 74 20 76 65 72 73 69 6f |e.curren|t versio|
|00001e80| 6e 20 6f 66 20 65 6d 61 | 63 73 2e 22 5d 29 0a 28 |n of ema|cs."]).(|
|00001e90| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 73 74 |defalias| 'tpu-st|
|00001ea0| 72 69 6e 67 2d 70 72 6f | 6d 70 74 20 23 5b 28 70 |ring-pro|mpt #[(p|
|00001eb0| 72 6f 6d 70 74 20 68 69 | 73 74 6f 72 79 2d 73 79 |rompt hi|story-sy|
|00001ec0| 6d 62 6f 6c 29 20 22 08 | 83 5c 66 00 c1 5c 6e c3 |mbol) ".|.\f..\n.|
|00001ed0| 89 89 5c 66 25 87 c5 5c | 6e 21 87 22 20 5b 74 70 |..\f%..\|n!." [tp|
|00001ee0| 75 2d 65 6d 61 63 73 31 | 39 2d 70 20 72 65 61 64 |u-emacs1|9-p read|
|00001ef0| 2d 66 72 6f 6d 2d 6d 69 | 6e 69 62 75 66 66 65 72 |-from-mi|nibuffer|
|00001f00| 20 70 72 6f 6d 70 74 20 | 6e 69 6c 20 68 69 73 74 | prompt |nil hist|
|00001f10| 6f 72 79 2d 73 79 6d 62 | 6f 6c 20 72 65 61 64 2d |ory-symb|ol read-|
|00001f20| 73 74 72 69 6e 67 5d 20 | 36 20 22 5c 0a 52 65 61 |string] |6 "\.Rea|
|00001f30| 64 20 61 20 73 74 72 69 | 6e 67 20 77 69 74 68 20 |d a stri|ng with |
|00001f40| 50 52 4f 4d 50 54 2e 22 | 5d 29 0a 28 64 65 66 76 |PROMPT."|]).(defv|
|00001f50| 61 72 20 74 70 75 2d 6c | 61 73 74 2d 61 6e 73 77 |ar tpu-l|ast-answ|
|00001f60| 65 72 20 6e 69 6c 20 22 | 5c 0a 4d 6f 73 74 20 72 |er nil "|\.Most r|
|00001f70| 65 63 65 6e 74 20 72 65 | 73 70 6f 6e 73 65 20 74 |ecent re|sponse t|
|00001f80| 6f 20 74 70 75 2d 79 2d | 6f 72 2d 6e 2d 70 2e 22 |o tpu-y-|or-n-p."|
|00001f90| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|00001fa0| 2d 79 2d 6f 72 2d 6e 2d | 70 20 23 5b 28 70 72 6f |-y-or-n-|p #[(pro|
|00001fb0| 6d 70 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6e 6f |mpt &opt|ional no|
|00001fc0| 74 2d 79 65 73 29 20 22 | c0 c1 c2 0b 5c 66 83 5c |t-yes) "|....\f.\|
|00001fd0| 66 00 c5 82 0d 00 c6 23 | 21 88 c7 1e 08 0e 08 83 |f......#|!.......|
|00001fe0| 7c 00 c9 16 08 ca 20 89 | 1e 0b cc 55 84 33 00 0e ||..... .|...U.3..|
|00001ff0| 0b cd 55 84 33 00 0e 0b | ce 55 83 39 00 c7 16 0f |..U.3...|.U.9....|
|00002000| 82 78 00 0e 0b d0 55 84 | 4e 00 0e 0b d1 55 84 4e |.x....U.|N....U.N|
|00002010| 00 0e 0b d2 55 83 54 00 | c9 16 0f 82 78 00 0e 0b |....U.T.|....x...|
|00002020| d3 55 83 62 00 5c 66 3f | 16 0f 82 78 00 c7 16 08 |.U.b.\f?|...x....|
|00002030| d4 20 88 c0 c1 d5 0b 5c | 66 83 74 00 c5 82 75 00 |. .....\|f.t...u.|
|00002040| c6 23 21 88 29 82 13 00 | 29 0e 0f 87 22 20 5b 6d |.#!.)...|)..." [m|
|00002050| 65 73 73 61 67 65 20 66 | 6f 72 6d 61 74 20 22 25 |essage f|ormat "%|
|00002060| 73 5b 25 73 5d 22 20 70 | 72 6f 6d 70 74 20 6e 6f |s[%s]" p|rompt no|
|00002070| 74 2d 79 65 73 20 22 6e | 22 20 22 79 22 20 74 20 |t-yes "n|" "y" t |
|00002080| 64 6f 69 74 20 6e 69 6c | 20 72 65 61 64 2d 63 68 |doit nil| read-ch|
|00002090| 61 72 20 61 6e 73 20 31 | 32 31 20 38 39 20 33 32 |ar ans 1|21 89 32|
|000020a0| 20 74 70 75 2d 6c 61 73 | 74 2d 61 6e 73 77 65 72 | tpu-las|t-answer|
|000020b0| 20 31 31 30 20 37 38 20 | 31 32 37 20 31 33 20 62 | 110 78 |127 13 b|
|000020c0| 65 65 70 20 22 50 6c 65 | 61 73 65 20 61 6e 73 77 |eep "Ple|ase answ|
|000020d0| 65 72 20 79 20 6f 72 20 | 6e 2e 20 20 25 73 5b 25 |er y or |n. %s[%|
|000020e0| 73 5d 22 5d 20 36 20 22 | 5c 0a 50 72 6f 6d 70 74 |s]"] 6 "|\.Prompt|
|000020f0| 20 66 6f 72 20 61 20 79 | 20 6f 72 20 6e 20 61 6e | for a y| or n an|
|00002100| 73 77 65 72 20 77 69 74 | 68 20 70 6f 73 69 74 69 |swer wit|h positi|
|00002110| 76 65 20 64 65 66 61 75 | 6c 74 2e 0a 4f 70 74 69 |ve defau|lt..Opti|
|00002120| 6f 6e 61 6c 20 73 65 63 | 6f 6e 64 20 61 72 67 75 |onal sec|ond argu|
|00002130| 6d 65 6e 74 20 4e 4f 54 | 2d 59 45 53 20 63 68 61 |ment NOT|-YES cha|
|00002140| 6e 67 65 73 20 64 65 66 | 61 75 6c 74 20 74 6f 20 |nges def|ault to |
|00002150| 6e 65 67 61 74 69 76 65 | 2e 0a 4c 69 6b 65 20 65 |negative|..Like e|
|00002160| 6d 61 63 73 20 79 2d 6f | 72 2d 6e 2d 70 2c 20 61 |macs y-o|r-n-p, a|
|00002170| 6c 73 6f 20 61 63 63 65 | 70 74 73 20 73 70 61 63 |lso acce|pts spac|
|00002180| 65 20 61 73 20 79 20 61 | 6e 64 20 44 45 4c 20 61 |e as y a|nd DEL a|
|00002190| 73 20 6e 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |s n."]).|(defalia|
|000021a0| 73 20 27 74 70 75 2d 6c | 6f 63 61 6c 2d 73 65 74 |s 'tpu-l|ocal-set|
|000021b0| 2d 6b 65 79 20 23 5b 28 | 6b 65 79 20 66 75 6e 63 |-key #[(|key func|
|000021c0| 29 20 22 c0 09 21 84 19 | 00 c2 20 83 12 00 c3 c2 |) "..!..|.. .....|
|000021d0| 20 21 82 14 00 c4 20 11 | c5 09 21 88 c6 0e 07 0e | !.... .|..!.....|
|000021e0| 08 5c 22 87 22 20 5b 6b | 65 79 6d 61 70 70 20 74 |.\"." [k|eymapp t|
|000021f0| 70 75 2d 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 2d |pu-buffe|r-local-|
|00002200| 6d 61 70 20 63 75 72 72 | 65 6e 74 2d 6c 6f 63 61 |map curr|ent-loca|
|00002210| 6c 2d 6d 61 70 20 63 6f | 70 79 2d 6b 65 79 6d 61 |l-map co|py-keyma|
|00002220| 70 20 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 |p make-s|parse-ke|
|00002230| 79 6d 61 70 20 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |ymap use|-local-m|
|00002240| 61 70 20 6c 6f 63 61 6c | 2d 73 65 74 2d 6b 65 79 |ap local|-set-key|
|00002250| 20 6b 65 79 20 66 75 6e | 63 5d 20 33 20 22 5c 0a | key fun|c] 3 "\.|
|00002260| 52 65 70 6c 61 63 65 20 | 61 20 6b 65 79 20 69 6e |Replace |a key in|
|00002270| 20 74 68 65 20 54 50 55 | 2d 65 64 74 20 6c 6f 63 | the TPU|-edt loc|
|00002280| 61 6c 20 6b 65 79 20 6d | 61 70 2e 0a 43 72 65 61 |al key m|ap..Crea|
|00002290| 74 65 20 74 68 65 20 6b | 65 79 20 6d 61 70 20 69 |te the k|ey map i|
|000022a0| 66 20 6e 65 63 65 73 73 | 61 72 79 2e 22 5d 29 0a |f necess|ary."]).|
|000022b0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 63 |(defalia|s 'tpu-c|
|000022c0| 75 72 72 65 6e 74 2d 6c | 69 6e 65 20 23 5b 6e 69 |urrent-l|ine #[ni|
|000022d0| 6c 20 22 c0 c1 20 60 5c | 22 69 c2 55 83 0f 00 c3 |l ".. `\|"i.U....|
|000022e0| 82 10 00 c2 c4 5c 5c 5c | 5c 87 22 20 5b 63 6f 75 |.....\\\|\." [cou|
|000022f0| 6e 74 2d 6c 69 6e 65 73 | 20 77 69 6e 64 6f 77 2d |nt-lines| window-|
|00002300| 73 74 61 72 74 20 30 20 | 31 20 2d 31 5d 20 33 20 |start 0 |1 -1] 3 |
|00002310| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 76 65 |"\.Retur|n the ve|
|00002320| 72 74 69 63 61 6c 20 70 | 6f 73 69 74 69 6f 6e 20 |rtical p|osition |
|00002330| 6f 66 20 70 6f 69 6e 74 | 20 69 6e 20 74 68 65 20 |of point| in the |
|00002340| 73 65 6c 65 63 74 65 64 | 20 77 69 6e 64 6f 77 2e |selected| window.|
|00002350| 0a 54 6f 70 20 6c 69 6e | 65 20 69 73 20 30 2e 20 |.Top lin|e is 0. |
|00002360| 20 43 6f 75 6e 74 73 20 | 65 61 63 68 20 74 65 78 | Counts |each tex|
|00002370| 74 20 6c 69 6e 65 20 6f | 6e 6c 79 20 6f 6e 63 65 |t line o|nly once|
|00002380| 2c 20 65 76 65 6e 20 69 | 66 20 69 74 20 77 72 61 |, even i|f it wra|
|00002390| 70 73 2e 22 5d 29 0a 28 | 64 65 66 76 61 72 20 74 |ps."]).(|defvar t|
|000023a0| 70 75 2d 62 72 65 61 64 | 63 72 75 6d 62 2d 70 6c |pu-bread|crumb-pl|
|000023b0| 69 73 74 20 6e 69 6c 20 | 22 5c 0a 54 68 65 20 73 |ist nil |"\.The s|
|000023c0| 65 74 20 6f 66 20 75 73 | 65 72 2d 64 65 66 69 6e |et of us|er-defin|
|000023d0| 65 64 20 6d 61 72 6b 65 | 72 73 20 28 62 72 65 61 |ed marke|rs (brea|
|000023e0| 64 63 72 75 6d 62 73 29 | 2c 20 61 73 20 61 20 70 |dcrumbs)|, as a p|
|000023f0| 6c 69 73 74 2e 22 29 0a | 28 64 65 66 61 6c 69 61 |list.").|(defalia|
|00002400| 73 20 27 74 70 75 2d 64 | 72 6f 70 2d 62 72 65 61 |s 'tpu-d|rop-brea|
|00002410| 64 63 72 75 6d 62 20 23 | 5b 28 6e 75 6d 29 20 22 |dcrumb #|[(num) "|
|00002420| c0 09 5c 6e 70 60 44 23 | 88 c3 c4 5c 6e 5c 22 87 |..\np`D#|...\n\".|
|00002430| 22 20 5b 70 75 74 20 74 | 70 75 2d 62 72 65 61 64 |" [put t|pu-bread|
|00002440| 63 72 75 6d 62 2d 70 6c | 69 73 74 20 6e 75 6d 20 |crumb-pl|ist num |
|00002450| 6d 65 73 73 61 67 65 20 | 22 4d 61 72 6b 20 25 64 |message |"Mark %d|
|00002460| 20 73 65 74 2e 22 5d 20 | 35 20 22 5c 0a 44 72 6f | set."] |5 "\.Dro|
|00002470| 70 73 20 61 20 62 72 65 | 61 64 63 72 75 6d 62 20 |ps a bre|adcrumb |
|00002480| 74 68 61 74 20 63 61 6e | 20 62 65 20 72 65 74 75 |that can| be retu|
|00002490| 72 6e 65 64 20 74 6f 20 | 6c 61 74 65 72 20 77 69 |rned to |later wi|
|000024a0| 74 68 20 67 6f 74 6f 2d | 62 72 65 61 64 63 72 75 |th goto-|breadcru|
|000024b0| 6d 62 2e 22 20 22 70 22 | 5d 29 0a 28 64 65 66 61 |mb." "p"|]).(defa|
|000024c0| 6c 69 61 73 20 27 74 70 | 75 2d 67 6f 74 6f 2d 62 |lias 'tp|u-goto-b|
|000024d0| 72 65 61 64 63 72 75 6d | 62 20 23 5b 28 6e 75 6d |readcrum|b #[(num|
|000024e0| 29 20 22 08 09 4e 83 19 | 00 c2 08 09 4e 40 21 88 |) "..N..|....N@!.|
|000024f0| c3 08 09 4e 21 62 88 c4 | c5 09 5c 22 87 c4 c6 09 |...N!b..|..\"....|
|00002500| 5c 22 87 22 20 5b 74 70 | 75 2d 62 72 65 61 64 63 |\"." [tp|u-breadc|
|00002510| 72 75 6d 62 2d 70 6c 69 | 73 74 20 6e 75 6d 20 73 |rumb-pli|st num s|
|00002520| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 20 |witch-to|-buffer |
|00002530| 74 70 75 2d 63 61 64 72 | 20 6d 65 73 73 61 67 65 |tpu-cadr| message|
|00002540| 20 22 6d 61 72 6b 20 25 | 64 20 66 6f 75 6e 64 2e | "mark %|d found.|
|00002550| 22 20 22 6d 61 72 6b 20 | 25 64 20 6e 6f 74 20 66 |" "mark |%d not f|
|00002560| 6f 75 6e 64 2e 22 5d 20 | 33 20 22 5c 0a 52 65 74 |ound."] |3 "\.Ret|
|00002570| 75 72 6e 73 20 74 6f 20 | 61 20 62 72 65 61 64 63 |urns to |a breadc|
|00002580| 72 75 6d 62 20 73 65 74 | 20 77 69 74 68 20 64 72 |rumb set| with dr|
|00002590| 6f 70 2d 62 72 65 61 64 | 63 72 75 6d 62 2e 22 20 |op-bread|crumb." |
|000025a0| 22 70 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"p"]).(d|efalias |
|000025b0| 27 74 70 75 2d 63 68 61 | 6e 67 65 2d 63 61 73 65 |'tpu-cha|nge-case|
|000025c0| 20 23 5b 28 6e 75 6d 29 | 20 22 c0 20 83 2f 00 c1 | #[(num)| ". ./..|
|000025d0| 20 c2 20 1b 1c 0b 5c 66 | 56 83 2a 00 5c 66 66 97 | . ...\f|V.*.\ff.|
|000025e0| 5c 66 66 55 83 1e 00 c5 | 82 1f 00 c6 5c 66 89 54 |\ffU....|....\f.T|
|000025f0| 5c 22 88 5c 66 54 14 82 | 0b 00 c7 c8 21 2a 87 c9 |\".\fT..|....!*..|
|00002600| 20 83 5d 00 ca 20 cb 20 | 1b 1c 0b 5c 66 56 83 59 | .].. . |...\fV.Y|
|00002610| 00 5c 66 66 97 5c 66 66 | 55 83 4d 00 c5 82 4e 00 |.\ff.\ff|U.M...N.|
|00002620| c6 5c 66 89 54 5c 22 88 | 5c 66 54 14 82 3a 00 cc |.\f.T\".|\fT..:..|
|00002630| 20 2a 87 0e 0d ce 56 85 | 8a 00 67 97 67 55 83 6f | *....V.|..g.gU.o|
|00002640| 00 c5 82 70 00 c6 60 60 | 54 5c 22 88 0e 0f 83 7e |...p..``|T\"....~|
|00002650| 00 d0 82 7f 00 d1 75 88 | 0e 0d 53 89 16 0d 82 5f |......u.|..S...._|
|00002660| 00 87 22 20 5b 74 70 75 | 2d 6d 61 72 6b 20 72 65 |.." [tpu|-mark re|
|00002670| 67 69 6f 6e 2d 62 65 67 | 69 6e 6e 69 6e 67 20 72 |gion-beg|inning r|
|00002680| 65 67 69 6f 6e 2d 65 6e | 64 20 65 6e 64 20 62 65 |egion-en|d end be|
|00002690| 67 20 75 70 63 61 73 65 | 2d 72 65 67 69 6f 6e 20 |g upcase|-region |
|000026a0| 64 6f 77 6e 63 61 73 65 | 2d 72 65 67 69 6f 6e 20 |downcase|-region |
|000026b0| 74 70 75 2d 75 6e 73 65 | 6c 65 63 74 20 74 20 74 |tpu-unse|lect t t|
|000026c0| 70 75 2d 63 68 65 63 6b | 2d 6d 61 74 63 68 20 74 |pu-check|-match t|
|000026d0| 70 75 2d 6d 61 74 63 68 | 2d 62 65 67 69 6e 6e 69 |pu-match|-beginni|
|000026e0| 6e 67 20 74 70 75 2d 6d | 61 74 63 68 2d 65 6e 64 |ng tpu-m|atch-end|
|000026f0| 20 74 70 75 2d 75 6e 73 | 65 74 2d 6d 61 74 63 68 | tpu-uns|et-match|
|00002700| 20 6e 75 6d 20 30 20 74 | 70 75 2d 72 65 76 65 72 | num 0 t|pu-rever|
|00002710| 73 65 20 2d 31 20 31 5d | 20 34 20 22 5c 0a 43 68 |se -1 1]| 4 "\.Ch|
|00002720| 61 6e 67 65 20 74 68 65 | 20 63 61 73 65 20 6f 66 |ange the| case of|
|00002730| 20 74 68 65 20 63 68 61 | 72 61 63 74 65 72 20 75 | the cha|racter u|
|00002740| 6e 64 65 72 20 74 68 65 | 20 63 75 72 73 6f 72 20 |nder the| cursor |
|00002750| 6f 72 20 72 65 67 69 6f | 6e 2e 0a 41 63 63 65 70 |or regio|n..Accep|
|00002760| 74 73 20 61 20 70 72 65 | 66 69 78 20 61 72 67 75 |ts a pre|fix argu|
|00002770| 6d 65 6e 74 20 6f 66 20 | 74 68 65 20 6e 75 6d 62 |ment of |the numb|
|00002780| 65 72 20 6f 66 20 63 68 | 61 72 61 63 74 65 72 73 |er of ch|aracters|
|00002790| 20 74 6f 20 69 6e 76 65 | 72 74 2e 22 20 22 70 22 | to inve|rt." "p"|
|000027a0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |]).(defa|lias 'tp|
|000027b0| 75 2d 66 69 6c 6c 20 23 | 5b 28 6e 75 6d 29 20 22 |u-fill #|[(num) "|
|000027c0| c0 20 83 10 00 c1 60 c0 | 20 5c 6e 23 88 c3 c4 21 |. ....`.| \n#...!|
|000027d0| 87 c5 5c 6e 21 87 22 20 | 5b 74 70 75 2d 6d 61 72 |..\n!." |[tpu-mar|
|000027e0| 6b 20 66 69 6c 6c 2d 72 | 65 67 69 6f 6e 20 6e 75 |k fill-r|egion nu|
|000027f0| 6d 20 74 70 75 2d 75 6e | 73 65 6c 65 63 74 20 74 |m tpu-un|select t|
|00002800| 20 66 69 6c 6c 2d 70 61 | 72 61 67 72 61 70 68 5d | fill-pa|ragraph]|
|00002810| 20 34 20 22 5c 0a 46 69 | 6c 6c 20 70 61 72 61 67 | 4 "\.Fi|ll parag|
|00002820| 72 61 70 68 20 6f 72 20 | 6d 61 72 6b 65 64 20 72 |raph or |marked r|
|00002830| 65 67 69 6f 6e 2e 0a 57 | 69 74 68 20 61 72 67 75 |egion..W|ith argu|
|00002840| 6d 65 6e 74 2c 20 66 69 | 6c 6c 20 61 6e 64 20 6a |ment, fi|ll and j|
|00002850| 75 73 74 69 66 79 2e 22 | 20 22 50 22 5d 29 0a 28 |ustify."| "P"]).(|
|00002860| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 76 65 |defalias| 'tpu-ve|
|00002870| 72 73 69 6f 6e 20 23 5b | 6e 69 6c 20 22 c0 c1 5c |rsion #[|nil "..\|
|00002880| 6e 5c 22 87 22 20 5b 6d | 65 73 73 61 67 65 20 22 |n\"." [m|essage "|
|00002890| 54 50 55 2d 65 64 74 20 | 76 65 72 73 69 6f 6e 20 |TPU-edt |version |
|000028a0| 25 73 20 62 79 20 52 6f | 62 20 52 69 65 70 65 6c |%s by Ro|b Riepel|
|000028b0| 20 28 72 69 65 70 65 6c | 40 6e 65 74 77 6f 72 6b | (riepel|@network|
|000028c0| 69 6e 67 2e 73 74 61 6e | 66 6f 72 64 2e 65 64 75 |ing.stan|ford.edu|
|000028d0| 29 22 20 74 70 75 2d 76 | 65 72 73 69 6f 6e 5d 20 |)" tpu-v|ersion] |
|000028e0| 33 20 22 5c 0a 50 72 69 | 6e 74 20 74 68 65 20 54 |3 "\.Pri|nt the T|
|000028f0| 50 55 2d 65 64 74 20 76 | 65 72 73 69 6f 6e 20 6e |PU-edt v|ersion n|
|00002900| 75 6d 62 65 72 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |umber." |nil]).(d|
|00002910| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 72 65 73 |efalias |'tpu-res|
|00002920| 65 74 2d 73 63 72 65 65 | 6e 2d 73 69 7a 65 20 23 |et-scree|n-size #|
|00002930| 5b 28 68 65 69 67 68 74 | 20 77 69 64 74 68 29 20 |[(height| width) |
|00002940| 22 c0 09 21 88 c2 0b 21 | 87 22 20 5b 73 65 74 2d |"..!...!|." [set-|
|00002950| 73 63 72 65 65 6e 2d 68 | 65 69 67 68 74 20 68 65 |screen-h|eight he|
|00002960| 69 67 68 74 20 73 65 74 | 2d 73 63 72 65 65 6e 2d |ight set|-screen-|
|00002970| 77 69 64 74 68 20 77 69 | 64 74 68 5d 20 32 20 22 |width wi|dth] 2 "|
|00002980| 5c 0a 53 65 74 73 20 74 | 68 65 20 73 63 72 65 65 |\.Sets t|he scree|
|00002990| 6e 20 73 69 7a 65 2e 22 | 20 22 6e 6e 65 77 20 73 |n size."| "nnew s|
|000029a0| 63 72 65 65 6e 20 68 65 | 69 67 68 74 3a 20 5c 6e |creen he|ight: \n|
|000029b0| 6e 6e 65 77 20 73 63 72 | 65 65 6e 20 77 69 64 74 |nnew scr|een widt|
|000029c0| 68 3a 20 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |h: "]).(|defalias|
|000029d0| 20 27 74 70 75 2d 74 6f | 67 67 6c 65 2d 6e 65 77 | 'tpu-to|ggle-new|
|000029e0| 6c 69 6e 65 2d 61 6e 64 | 2d 69 6e 64 65 6e 74 20 |line-and|-indent |
|000029f0| 23 5b 6e 69 6c 20 22 08 | 83 10 00 c1 12 c3 10 c4 |#[nil ".|........|
|00002a00| c5 c6 5c 22 88 82 19 00 | c7 12 c8 10 c4 c5 c9 5c |..\"....|.......\|
|00002a10| 22 88 ca 20 88 74 85 2c | 00 cb cc 08 83 2a 00 cd |".. .t.,|.....*..|
|00002a20| 82 2b 00 ce 5c 22 87 22 | 20 5b 74 70 75 2d 6e 65 |.+..\"."| [tpu-ne|
|00002a30| 77 6c 69 6e 65 2d 61 6e | 64 2d 69 6e 64 65 6e 74 |wline-an|d-indent|
|00002a40| 2d 70 20 22 22 20 74 70 | 75 2d 6e 65 77 6c 69 6e |-p "" tp|u-newlin|
|00002a50| 65 2d 61 6e 64 2d 69 6e | 64 65 6e 74 2d 73 74 72 |e-and-in|dent-str|
|00002a60| 69 6e 67 20 6e 69 6c 20 | 74 70 75 2d 6c 6f 63 61 |ing nil |tpu-loca|
|00002a70| 6c 2d 73 65 74 2d 6b 65 | 79 20 22 0d 22 20 6e 65 |l-set-ke|y "." ne|
|00002a80| 77 6c 69 6e 65 20 22 20 | 41 75 74 6f 49 6e 64 65 |wline " |AutoInde|
|00002a90| 6e 74 22 20 74 20 6e 65 | 77 6c 69 6e 65 2d 61 6e |nt" t ne|wline-an|
|00002aa0| 64 2d 69 6e 64 65 6e 74 | 20 74 70 75 2d 75 70 64 |d-indent| tpu-upd|
|00002ab0| 61 74 65 2d 6d 6f 64 65 | 2d 6c 69 6e 65 20 6d 65 |ate-mode|-line me|
|00002ac0| 73 73 61 67 65 20 22 43 | 61 72 72 69 61 67 65 20 |ssage "C|arriage |
|00002ad0| 72 65 74 75 72 6e 20 69 | 6e 73 65 72 74 73 20 61 |return i|nserts a|
|00002ae0| 20 6e 65 77 6c 69 6e 65 | 25 73 22 20 22 20 61 6e | newline|%s" " an|
|00002af0| 64 20 69 6e 64 65 6e 74 | 73 2e 22 20 22 2e 22 5d |d indent|s." "."]|
|00002b00| 20 33 20 22 5c 0a 54 6f | 67 67 6c 65 20 62 65 74 | 3 "\.To|ggle bet|
|00002b10| 77 65 65 6e 20 27 6e 65 | 77 6c 69 6e 65 20 61 6e |ween 'ne|wline an|
|00002b20| 64 20 69 6e 64 65 6e 74 | 27 20 61 6e 64 20 27 73 |d indent|' and 's|
|00002b30| 69 6d 70 6c 65 20 6e 65 | 77 6c 69 6e 65 27 2e 22 |imple ne|wline'."|
|00002b40| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00002b50| 20 27 74 70 75 2d 73 70 | 65 6c 6c 2d 63 68 65 63 | 'tpu-sp|ell-chec|
|00002b60| 6b 20 23 5b 6e 69 6c 20 | 22 08 83 18 00 c1 20 83 |k #[nil |"..... .|
|00002b70| 12 00 c2 c1 20 60 5c 22 | 88 82 29 00 c3 20 88 82 |.... `\"|..).. ..|
|00002b80| 29 00 c1 20 83 26 00 c4 | c1 20 60 5c 22 88 82 29 |).. .&..|. `\"..)|
|00002b90| 00 c5 20 88 c1 20 85 31 | 00 c6 c7 21 87 22 20 5b |.. .. .1|...!." [|
|00002ba0| 74 70 75 2d 68 61 76 65 | 2d 69 73 70 65 6c 6c 20 |tpu-have|-ispell |
|00002bb0| 74 70 75 2d 6d 61 72 6b | 20 69 73 70 65 6c 6c 2d |tpu-mark| ispell-|
|00002bc0| 72 65 67 69 6f 6e 20 69 | 73 70 65 6c 6c 2d 62 75 |region i|spell-bu|
|00002bd0| 66 66 65 72 20 73 70 65 | 6c 6c 2d 72 65 67 69 6f |ffer spe|ll-regio|
|00002be0| 6e 20 73 70 65 6c 6c 2d | 62 75 66 66 65 72 20 74 |n spell-|buffer t|
|00002bf0| 70 75 2d 75 6e 73 65 6c | 65 63 74 20 74 5d 20 33 |pu-unsel|ect t] 3|
|00002c00| 20 22 5c 0a 43 68 65 63 | 6b 73 20 74 68 65 20 73 | "\.Chec|ks the s|
|00002c10| 70 65 6c 6c 69 6e 67 20 | 6f 66 20 74 68 65 20 72 |pelling |of the r|
|00002c20| 65 67 69 6f 6e 2c 20 6f | 72 20 6f 66 20 74 68 65 |egion, o|r of the|
|00002c30| 20 65 6e 74 69 72 65 20 | 62 75 66 66 65 72 20 69 | entire |buffer i|
|00002c40| 66 20 6e 6f 0a 20 72 65 | 67 69 6f 6e 20 69 73 20 |f no. re|gion is |
|00002c50| 73 65 6c 65 63 74 65 64 | 2e 22 20 6e 69 6c 5d 29 |selected|." nil])|
|00002c60| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|00002c70| 74 6f 67 67 6c 65 2d 6f | 76 65 72 77 72 69 74 65 |toggle-o|verwrite|
|00002c80| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 08 83 0d |-mode #[|nil "...|
|00002c90| 00 c1 c2 0b 5c 22 88 c0 | c4 21 87 c5 c2 21 13 c1 |....\"..|.!...!..|
|00002ca0| c2 c6 5c 22 88 c0 c7 21 | 87 22 20 5b 6f 76 65 72 |..\"...!|." [over|
|00002cb0| 77 72 69 74 65 2d 6d 6f | 64 65 20 74 70 75 2d 6c |write-mo|de tpu-l|
|00002cc0| 6f 63 61 6c 2d 73 65 74 | 2d 6b 65 79 20 22 7f 22 |ocal-set|-key "."|
|00002cd0| 20 74 70 75 2d 73 61 76 | 65 64 2d 64 65 6c 65 74 | tpu-sav|ed-delet|
|00002ce0| 65 2d 66 75 6e 63 20 30 | 20 6c 6f 63 61 6c 2d 6b |e-func 0| local-k|
|00002cf0| 65 79 2d 62 69 6e 64 69 | 6e 67 20 70 69 63 74 75 |ey-bindi|ng pictu|
|00002d00| 72 65 2d 62 61 63 6b 77 | 61 72 64 2d 63 6c 65 61 |re-backw|ard-clea|
|00002d10| 72 2d 63 6f 6c 75 6d 6e | 20 31 5d 20 33 20 22 5c |r-column| 1] 3 "\|
|00002d20| 0a 53 77 69 74 63 68 65 | 73 20 69 6e 20 61 6e 64 |.Switche|s in and|
|00002d30| 20 6f 75 74 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | out of |overwrit|
|00002d40| 65 20 6d 6f 64 65 22 20 | 6e 69 6c 5d 29 0a 28 64 |e mode" |nil]).(d|
|00002d50| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 73 70 65 |efalias |'tpu-spe|
|00002d60| 63 69 61 6c 2d 69 6e 73 | 65 72 74 20 23 5b 28 6e |cial-ins|ert #[(n|
|00002d70| 75 6d 29 20 22 08 83 08 | 00 c1 c2 21 88 0b 83 10 |um) "...|...!....|
|00002d80| 00 0b 82 11 00 c4 63 87 | 22 20 5b 6f 76 65 72 77 |......c.|" [overw|
|00002d90| 72 69 74 65 2d 6d 6f 64 | 65 20 64 65 6c 65 74 65 |rite-mod|e delete|
|00002da0| 2d 63 68 61 72 20 31 20 | 6e 75 6d 20 30 5d 20 32 |-char 1 |num 0] 2|
|00002db0| 20 22 5c 0a 49 6e 73 65 | 72 74 20 61 20 63 68 61 | "\.Inse|rt a cha|
|00002dc0| 72 61 63 74 65 72 20 6f | 72 20 63 6f 6e 74 72 6f |racter o|r contro|
|00002dd0| 6c 20 63 6f 64 65 20 61 | 63 63 6f 72 64 69 6e 67 |l code a|ccording|
|00002de0| 20 74 6f 0a 69 74 73 20 | 41 53 43 49 49 20 64 65 | to.its |ASCII de|
|00002df0| 63 69 6d 61 6c 20 76 61 | 6c 75 65 2e 22 20 22 50 |cimal va|lue." "P|
|00002e00| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |"]).(def|alias 't|
|00002e10| 70 75 2d 71 75 6f 74 65 | 64 2d 69 6e 73 65 72 74 |pu-quote|d-insert|
|00002e20| 20 23 5b 28 6e 75 6d 29 | 20 22 c0 20 19 5c 6e 83 | #[(num)| ". .\n.|
|00002e30| 0b 00 c3 5c 66 21 88 c5 | 09 5c 66 5c 22 29 87 22 |...\f!..|.\f\")."|
|00002e40| 20 5b 72 65 61 64 2d 63 | 68 61 72 20 63 68 61 72 | [read-c|har char|
|00002e50| 20 6f 76 65 72 77 72 69 | 74 65 2d 6d 6f 64 65 20 | overwri|te-mode |
|00002e60| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 6e 75 6d 20 |delete-c|har num |
|00002e70| 69 6e 73 65 72 74 2d 63 | 68 61 72 5d 20 33 20 22 |insert-c|har] 3 "|
|00002e80| 5c 0a 52 65 61 64 20 6e | 65 78 74 20 69 6e 70 75 |\.Read n|ext inpu|
|00002e90| 74 20 63 68 61 72 61 63 | 74 65 72 20 61 6e 64 20 |t charac|ter and |
|00002ea0| 69 6e 73 65 72 74 20 69 | 74 2e 0a 54 68 69 73 20 |insert i|t..This |
|00002eb0| 69 73 20 75 73 65 66 75 | 6c 20 66 6f 72 20 69 6e |is usefu|l for in|
|00002ec0| 73 65 72 74 69 6e 67 20 | 63 6f 6e 74 72 6f 6c 20 |serting |control |
|00002ed0| 63 68 61 72 61 63 74 65 | 72 73 2e 22 20 22 2a 70 |characte|rs." "*p|
|00002ee0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |"]).(def|alias 't|
|00002ef0| 70 75 2d 69 6e 63 6c 75 | 64 65 20 23 5b 28 66 69 |pu-inclu|de #[(fi|
|00002f00| 6c 65 29 20 22 8a c0 09 | 21 88 c2 c3 21 29 87 22 |le) "...|!...!)."|
|00002f10| 20 5b 69 6e 73 65 72 74 | 2d 66 69 6c 65 20 66 69 | [insert|-file fi|
|00002f20| 6c 65 20 6d 65 73 73 61 | 67 65 20 22 22 5d 20 32 |le messa|ge ""] 2|
|00002f30| 20 22 5c 0a 54 50 55 2d | 6c 69 6b 65 20 69 6e 63 | "\.TPU-|like inc|
|00002f40| 6c 75 64 65 20 66 69 6c | 65 22 20 22 66 49 6e 63 |lude fil|e" "fInc|
|00002f50| 6c 75 64 65 20 66 69 6c | 65 3a 20 22 5d 29 0a 28 |lude fil|e: "]).(|
|00002f60| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 67 65 |defalias| 'tpu-ge|
|00002f70| 74 20 23 5b 28 66 69 6c | 65 29 20 22 c0 09 21 87 |t #[(fil|e) "..!.|
|00002f80| 22 20 5b 66 69 6e 64 2d | 66 69 6c 65 20 66 69 6c |" [find-|file fil|
|00002f90| 65 5d 20 32 20 22 5c 0a | 54 50 55 2d 6c 69 6b 65 |e] 2 "\.|TPU-like|
|00002fa0| 20 67 65 74 20 66 69 6c | 65 22 20 22 46 46 69 6c | get fil|e" "FFil|
|00002fb0| 65 20 74 6f 20 67 65 74 | 3a 20 22 5d 29 0a 28 64 |e to get|: "]).(d|
|00002fc0| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 77 68 61 |efalias |'tpu-wha|
|00002fd0| 74 2d 6c 69 6e 65 20 23 | 5b 6e 69 6c 20 22 6d 83 |t-line #|[nil "m.|
|00002fe0| 5c 66 00 c0 c1 c2 c3 64 | 5c 22 5c 22 87 c0 c4 c2 |\f.....d|\"\"....|
|00002ff0| c3 60 54 5c 22 c2 c3 64 | 5c 22 23 87 22 20 5b 6d |.`T\"..d|\"#." [m|
|00003000| 65 73 73 61 67 65 20 22 | 59 6f 75 20 61 72 65 20 |essage "|You are |
|00003010| 61 74 20 74 68 65 20 45 | 6e 64 20 6f 66 20 42 75 |at the E|nd of Bu|
|00003020| 66 66 65 72 2e 20 20 54 | 68 65 20 6c 61 73 74 20 |ffer. T|he last |
|00003030| 6c 69 6e 65 20 69 73 20 | 25 64 2e 22 20 63 6f 75 |line is |%d." cou|
|00003040| 6e 74 2d 6c 69 6e 65 73 | 20 31 20 22 4c 69 6e 65 |nt-lines| 1 "Line|
|00003050| 20 25 64 20 6f 66 20 25 | 64 22 5d 20 36 20 22 5c | %d of %|d"] 6 "\|
|00003060| 0a 54 65 6c 6c 73 20 77 | 68 61 74 20 6c 69 6e 65 |.Tells w|hat line|
|00003070| 20 74 68 65 20 70 6f 69 | 6e 74 20 69 73 20 6f 6e | the poi|nt is on|
|00003080| 2c 0a 20 61 6e 64 20 74 | 68 65 20 74 6f 74 61 6c |,. and t|he total|
|00003090| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|000030a0| 20 69 6e 20 74 68 65 20 | 62 75 66 66 65 72 2e 22 | in the |buffer."|
|000030b0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|000030c0| 20 27 74 70 75 2d 65 78 | 69 74 20 23 5b 6e 69 6c | 'tpu-ex|it #[nil|
|000030d0| 20 22 c0 20 c1 3d 84 5c | 6e 00 c2 20 87 c3 20 88 | ". .=.\|n.. .. .|
|000030e0| c4 20 87 22 20 5b 72 65 | 63 75 72 73 69 6f 6e 2d |. ." [re|cursion-|
|000030f0| 64 65 70 74 68 20 30 20 | 65 78 69 74 2d 72 65 63 |depth 0 |exit-rec|
|00003100| 75 72 73 69 76 65 2d 65 | 64 69 74 20 73 61 76 65 |ursive-e|dit save|
|00003110| 2d 62 75 66 66 65 72 20 | 73 61 76 65 2d 62 75 66 |-buffer |save-buf|
|00003120| 66 65 72 73 2d 6b 69 6c | 6c 2d 65 6d 61 63 73 5d |fers-kil|l-emacs]|
|00003130| 20 32 20 22 5c 0a 45 78 | 69 74 20 74 68 65 20 77 | 2 "\.Ex|it the w|
|00003140| 61 79 20 54 50 55 20 64 | 6f 65 73 2c 20 73 61 76 |ay TPU d|oes, sav|
|00003150| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00003160| 20 61 6e 64 20 61 73 6b | 20 61 62 6f 75 74 20 6f | and ask| about o|
|00003170| 74 68 65 72 73 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |thers." |nil]).(d|
|00003180| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 71 75 69 |efalias |'tpu-qui|
|00003190| 74 20 23 5b 6e 69 6c 20 | 22 c0 20 c1 1a 1b 0b 83 |t #[nil |". .....|
|000031a0| 32 00 5c 6e 83 32 00 0b | 40 1c c5 5c 66 21 83 2b |2.\n.2..|@..\f!.+|
|000031b0| 00 c6 5c 66 21 83 2b 00 | c7 c8 21 83 29 00 c9 c1 |..\f!.+.|..!.)...|
|000031c0| 21 88 82 2b 00 ca 12 0b | 41 13 29 82 05 00 5c 6e |!..+....|A.)...\n|
|000031d0| 85 39 00 c9 c1 21 2a 87 | 22 20 5b 62 75 66 66 65 |.9...!*.|" [buffe|
|000031e0| 72 2d 6c 69 73 74 20 74 | 20 77 6f 72 6b 69 6e 67 |r-list t| working|
|000031f0| 20 6c 69 73 74 20 62 75 | 66 66 65 72 20 62 75 66 | list bu|ffer buf|
|00003200| 66 65 72 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 62 75 |fer-file|-name bu|
|00003210| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00003220| 74 70 75 2d 79 2d 6f 72 | 2d 6e 2d 70 20 22 4d 6f |tpu-y-or|-n-p "Mo|
|00003230| 64 69 66 69 63 61 74 69 | 6f 6e 73 20 77 69 6c 6c |dificati|ons will|
|00003240| 20 6e 6f 74 20 62 65 20 | 73 61 76 65 64 2c 20 63 | not be |saved, c|
|00003250| 6f 6e 74 69 6e 75 65 20 | 71 75 69 74 74 69 6e 67 |ontinue |quitting|
|00003260| 3f 20 22 20 6b 69 6c 6c | 2d 65 6d 61 63 73 20 6e |? " kill|-emacs n|
|00003270| 69 6c 5d 20 32 20 22 5c | 0a 51 75 69 74 20 74 68 |il] 2 "\|.Quit th|
|00003280| 65 20 77 61 79 20 54 50 | 55 20 64 6f 65 73 2c 20 |e way TP|U does, |
|00003290| 61 73 6b 20 74 6f 20 6d | 61 6b 65 20 73 75 72 65 |ask to m|ake sure|
|000032a0| 20 63 68 61 6e 67 65 73 | 20 73 68 6f 75 6c 64 20 | changes| should |
|000032b0| 62 65 20 61 62 61 6e 64 | 6f 6e 65 64 2e 22 20 6e |be aband|oned." n|
|000032c0| 69 6c 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |il]).(by|te-code |
|000032d0| 22 c0 c1 4d 88 c2 c1 4d | 88 c3 c1 4d 88 c4 c1 4d |"..M...M|...M...M|
|000032e0| 88 c5 c6 4d 88 c7 c6 4d | 88 c8 c9 4d 88 ca c9 4d |...M...M|...M...M|
|000032f0| 88 cb cc 4d 88 cd cc 4d | 88 ce cf 4d 88 d0 cf 4d |...M...M|...M...M|
|00003300| 88 d1 d2 4d 88 d3 d2 4d | 88 d4 d5 4d 88 d6 d5 4d |...M...M|...M...M|
|00003310| 88 d7 d8 4d 88 d9 d8 4d | 88 da db 4d 88 dc db 4d |...M...M|...M...M|
|00003320| 88 dd de 4d 88 df de 4d | 88 e0 e1 4d 88 e2 e1 4d |...M...M|...M...M|
|00003330| 88 e3 e4 4d 88 e5 e4 4d | 88 e6 e7 21 84 72 00 e7 |...M...M|...!.r..|
|00003340| e8 4d 88 e9 16 2a eb 16 | 2c ed ee 21 84 84 00 ef |.M...*..|,..!....|
|00003350| f0 f1 5c 22 16 2e ed f2 | 21 84 90 00 ef f0 f3 5c |..\"....|!......\|
|00003360| 22 16 32 ed f4 21 84 99 | 00 f5 16 34 ed f6 21 84 |".2..!..|...4..!.|
|00003370| a2 00 f7 16 36 ed f8 21 | 84 ab 00 f9 16 38 ed fa |....6..!|.....8..|
|00003380| 21 84 b4 00 fb 16 3a c0 | 87 22 20 5b 74 70 75 2d |!.....:.|." [tpu-|
|00003390| 65 64 74 2d 6d 6f 64 65 | 20 74 70 75 2d 65 64 74 |edt-mode| tpu-edt|
|000033a0| 2d 6f 6e 20 54 50 55 2d | 45 44 54 2d 4d 4f 44 45 |-on TPU-|EDT-MODE|
|000033b0| 20 74 70 75 2d 65 64 74 | 20 54 50 55 2d 45 44 54 | tpu-edt| TPU-EDT|
|000033c0| 20 65 78 69 74 20 74 70 | 75 2d 65 78 69 74 20 45 | exit tp|u-exit E|
|000033d0| 58 49 54 20 47 65 74 20 | 74 70 75 2d 67 65 74 20 |XIT Get |tpu-get |
|000033e0| 47 45 54 20 69 6e 63 6c | 75 64 65 20 74 70 75 2d |GET incl|ude tpu-|
|000033f0| 69 6e 63 6c 75 64 65 20 | 49 4e 43 4c 55 44 45 20 |include |INCLUDE |
|00003400| 71 75 69 74 20 74 70 75 | 2d 71 75 69 74 20 51 55 |quit tpu|-quit QU|
|00003410| 49 54 20 73 70 65 6c 6c | 20 74 70 75 2d 73 70 65 |IT spell| tpu-spe|
|00003420| 6c 6c 2d 63 68 65 63 6b | 20 53 50 45 4c 4c 20 77 |ll-check| SPELL w|
|00003430| 68 61 74 5c 20 6c 69 6e | 65 20 74 70 75 2d 77 68 |hat\ lin|e tpu-wh|
|00003440| 61 74 2d 6c 69 6e 65 20 | 57 48 41 54 5c 20 4c 49 |at-line |WHAT\ LI|
|00003450| 4e 45 20 72 65 70 6c 61 | 63 65 20 74 70 75 2d 6c |NE repla|ce tpu-l|
|00003460| 6d 2d 72 65 70 6c 61 63 | 65 20 52 45 50 4c 41 43 |m-replac|e REPLAC|
|00003470| 45 20 68 65 6c 70 20 74 | 70 75 2d 68 65 6c 70 20 |E help t|pu-help |
|00003480| 48 45 4c 50 20 73 65 74 | 5c 20 63 75 72 73 6f 72 |HELP set|\ cursor|
|00003490| 5c 20 66 72 65 65 20 74 | 70 75 2d 73 65 74 2d 63 |\ free t|pu-set-c|
|000034a0| 75 72 73 6f 72 2d 66 72 | 65 65 20 53 45 54 5c 20 |ursor-fr|ee SET\ |
|000034b0| 43 55 52 53 4f 52 5c 20 | 46 52 45 45 20 73 65 74 |CURSOR\ |FREE set|
|000034c0| 5c 20 63 75 72 73 6f 72 | 5c 20 62 6f 75 6e 64 20 |\ cursor|\ bound |
|000034d0| 74 70 75 2d 73 65 74 2d | 63 75 72 73 6f 72 2d 62 |tpu-set-|cursor-b|
|000034e0| 6f 75 6e 64 20 53 45 54 | 5c 20 43 55 52 53 4f 52 |ound SET|\ CURSOR|
|000034f0| 5c 20 42 4f 55 4e 44 20 | 73 65 74 5c 20 73 63 72 |\ BOUND |set\ scr|
|00003500| 6f 6c 6c 5c 20 6d 61 72 | 67 69 6e 73 20 74 70 75 |oll\ mar|gins tpu|
|00003510| 2d 73 65 74 2d 73 63 72 | 6f 6c 6c 2d 6d 61 72 67 |-set-scr|oll-marg|
|00003520| 69 6e 73 20 53 45 54 5c | 20 53 43 52 4f 4c 4c 5c |ins SET\| SCROLL\|
|00003530| 20 4d 41 52 47 49 4e 53 | 20 66 62 6f 75 6e 64 70 | MARGINS| fboundp|
|00003540| 20 6e 65 78 74 2d 6c 69 | 6e 65 2d 69 6e 74 65 72 | next-li|ne-inter|
|00003550| 6e 61 6c 20 6c 69 6e 65 | 2d 6d 6f 76 65 20 22 5c |nal line|-move "\|
|00003560| 66 5c 6e 20 20 20 20 20 | 20 20 20 20 20 5f 5f 5f |f\n | ___|
|00003570| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003580| 5f 5f 5f 5f 20 20 20 20 | 5f 5f 5f 5f 5f 5f 5f 5f |____ |________|
|00003590| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000035a0| 5f 5f 5f 5f 5f 5f 5f 5c | 6e 20 20 20 20 20 20 20 |_______\|n |
|000035b0| 20 20 7c 20 48 45 4c 50 | 20 20 7c 20 20 20 20 20 | | HELP| | |
|000035c0| 20 44 6f 20 20 20 20 20 | 20 20 7c 20 20 7c 20 20 | Do | | | |
|000035d0| 20 20 20 20 20 7c 20 20 | 20 20 20 20 20 7c 20 20 | | | | |
|000035e0| 20 20 20 20 20 7c 20 20 | 20 20 20 20 20 7c 5c 6e | | | |\n|
|000035f0| 20 20 20 20 20 20 20 20 | 20 7c 4b 65 79 44 65 66 | | |KeyDef|
|00003600| 73 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s| | |
|00003610| 20 7c 20 20 7c 20 20 20 | 20 20 20 20 7c 20 20 20 | | | | | |
|00003620| 20 20 20 20 7c 20 20 20 | 20 20 20 20 7c 20 20 20 | | | | |
|00003630| 20 20 20 20 7c 5c 6e 20 | 20 20 20 20 20 20 20 20 | |\n | |
|00003640| 7c 5f 5f 5f 5f 5f 5f 5f | 7c 5f 5f 5f 5f 5f 5f 5f ||_______||_______|
|00003650| 5f 5f 5f 5f 5f 5f 5f 5f | 7c 20 20 7c 5f 5f 5f 5f |________|| |____|
|00003660| 5f 5f 5f 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5f 5f 5f 5f |___|____|___|____|
|00003670| 5f 5f 5f 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5c 6e 20 20 |___|____|___|\n |
|00003680| 20 20 20 20 20 20 20 20 | 5f 5f 5f 5f 5f 5f 5f 5f | |________|
|00003690| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 20 |________|_______ |
|000036a0| 20 20 20 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f | _____|________|
|000036b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000036c0| 5f 5f 5c 6e 20 20 20 20 | 20 20 20 20 20 7c 20 46 |__\n | | F|
|000036d0| 69 6e 64 20 20 7c 49 6e | 73 65 72 74 20 7c 52 65 |ind |In|sert |Re|
|000036e0| 6d 6f 76 65 20 7c 20 20 | 7c 20 47 6f 6c 64 20 20 |move | || Gold |
|000036f0| 7c 20 48 45 4c 50 20 20 | 7c 46 6e 64 4e 78 74 20 || HELP ||FndNxt |
|00003700| 7c 20 44 65 6c 20 4c 20 | 7c 5c 6e 20 20 20 20 20 || Del L ||\n |
|00003710| 20 20 20 20 7c 20 20 20 | 20 20 20 20 7c 20 20 20 | | | | |
|00003720| 20 20 20 20 7c 53 74 6f | 20 54 65 78 7c 20 20 7c | |Sto| Tex| ||
|00003730| 20 20 6b 65 79 20 20 7c | 45 2d 48 65 6c 70 20 7c | key ||E-Help ||
|00003740| 20 46 69 6e 64 20 20 7c | 55 6e 64 65 6c 20 4c 7c | Find ||Undel L||
|00003750| 5c 6e 20 20 20 20 20 20 | 20 20 20 7c 5f 5f 5f 5f |\n | |____|
|00003760| 5f 5f 5f 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5f 5f 5f 5f |___|____|___|____|
|00003770| 5f 5f 5f 7c 20 20 7c 5f | 5f 5f 5f 5f 5f 5f 7c 5f |___| |_|______|_|
|00003780| 5f 5f 5f 5f 5f 5f 7c 5f | 5f 5f 5f 5f 5f 5f 7c 5f |______|_|______|_|
|00003790| 5f 5f 5f 5f 5f 5f 7c 5c | 6e 20 20 20 20 20 20 20 |______|\|n |
|000037a0| 20 20 7c 53 65 6c 65 63 | 74 20 7c 50 72 65 20 53 | |Selec|t |Pre S|
|000037b0| 63 72 7c 4e 65 78 20 53 | 63 72 7c 20 20 7c 20 50 |cr|Nex S|cr| | P|
|000037c0| 61 67 65 20 20 7c 20 53 | 65 63 74 20 20 7c 41 70 |age | S|ect |Ap|
|000037d0| 70 65 6e 64 20 7c 20 44 | 65 6c 20 57 20 7c 5c 6e |pend | D|el W |\n|
|000037e0| 20 20 20 20 20 20 20 20 | 20 7c 20 52 65 73 65 74 | | | Reset|
|000037f0| 20 7c 50 72 65 20 57 69 | 6e 7c 4e 65 78 20 57 69 | |Pre Wi|n|Nex Wi|
|00003800| 6e 7c 20 20 7c 20 20 44 | 6f 20 20 20 7c 20 46 69 |n| | D|o | Fi|
|00003810| 6c 6c 20 20 7c 52 65 70 | 6c 61 63 65 7c 55 6e 64 |ll |Rep|lace|Und|
|00003820| 65 6c 20 57 7c 5c 6e 20 | 20 20 20 20 20 20 20 20 |el W|\n | |
|00003830| 7c 5f 5f 5f 5f 5f 5f 5f | 7c 5f 5f 5f 5f 5f 5f 5f ||_______||_______|
|00003840| 7c 5f 5f 5f 5f 5f 5f 5f | 7c 20 20 7c 5f 5f 5f 5f ||_______|| |____|
|00003850| 5f 5f 5f 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5f 5f 5f 5f |___|____|___|____|
|00003860| 5f 5f 5f 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5c 6e 20 20 |___|____|___|\n |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7c | | ||
|00003880| 4d 6f 76 65 20 75 70 7c | 20 20 20 20 20 20 20 20 |Move up|| |
|00003890| 20 20 7c 46 6f 72 77 61 | 72 64 7c 52 65 76 65 72 | |Forwa|rd|Rever|
|000038a0| 73 65 7c 52 65 6d 6f 76 | 65 20 7c 20 44 65 6c 20 |se|Remov|e | Del |
|000038b0| 43 20 7c 5c 6e 20 20 20 | 20 20 20 20 20 20 20 20 |C |\n | |
|000038c0| 20 20 20 20 20 20 7c 20 | 20 54 6f 70 20 20 7c 20 | | | Top | |
|000038d0| 20 20 20 20 20 20 20 20 | 20 7c 42 6f 74 74 6f 6d | | |Bottom|
|000038e0| 20 7c 20 20 54 6f 70 20 | 20 7c 49 6e 73 65 72 74 | | Top | |Insert|
|000038f0| 20 7c 55 6e 64 65 6c 20 | 43 7c 5c 6e 20 20 20 20 | |Undel |C|\n |
|00003900| 20 20 20 20 20 20 5f 5f | 5f 5f 5f 5f 5f 7c 5f 5f | __|_____|__|
|00003910| 5f 5f 5f 5f 5f 7c 5f 5f | 5f 5f 5f 5f 5f 20 20 20 |_____|__|_____ |
|00003920| 7c 5f 5f 5f 5f 5f 5f 5f | 7c 5f 5f 5f 5f 5f 5f 5f ||_______||_______|
|00003930| 7c 5f 5f 5f 5f 5f 5f 5f | 7c 5f 5f 5f 5f 5f 5f 5f ||_______||_______|
|00003940| 7c 5c 6e 20 20 20 20 20 | 20 20 20 20 7c 4d 6f 76 ||\n | |Mov|
|00003950| 20 4c 65 66 7c 4d 6f 76 | 20 44 6f 77 7c 4d 6f 76 | Lef|Mov| Dow|Mov|
|00003960| 20 52 69 67 7c 20 20 7c | 20 57 6f 72 64 20 20 7c | Rig| || Word ||
|00003970| 20 20 45 4f 4c 20 20 7c | 20 43 68 61 72 20 20 7c | EOL || Char ||
|00003980| 20 20 20 20 20 20 20 7c | 5c 6e 20 20 20 20 20 20 | ||\n |
|00003990| 20 20 20 7c 53 74 61 4f | 66 4c 69 7c 42 6f 74 74 | |StaO|fLi|Bott|
|000039a0| 6f 6d 20 7c 45 6e 64 4f | 66 4c 69 7c 20 20 7c 43 |om |EndO|fLi| |C|
|000039b0| 68 6e 67 43 61 73 7c 44 | 65 6c 20 45 4f 4c 7c 53 |hngCas|D|el EOL|S|
|000039c0| 70 65 63 49 6e 73 7c 20 | 45 6e 74 65 72 20 7c 5c |pecIns| |Enter |\|
|000039d0| 6e 20 20 20 20 20 20 20 | 20 20 7c 5f 5f 5f 5f 5f |n | |_____|
|000039e0| 5f 5f 7c 5f 5f 5f 5f 5f | 5f 5f 7c 5f 5f 5f 5f 5f |__|_____|__|_____|
|000039f0| 5f 5f 7c 20 20 7c 5f 5f | 5f 5f 5f 5f 5f 7c 5f 5f |__| |__|_____|__|
|00003a00| 5f 5f 5f 5f 5f 7c 5f 5f | 5f 5f 5f 5f 5f 7c 20 20 |_____|__|_____| |
|00003a10| 20 20 20 20 20 7c 5c 6e | 20 20 20 20 20 20 20 20 | |\n| |
|00003a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 7c 20 20 20 | | | |
|00003a40| 20 20 4c 69 6e 65 20 20 | 20 20 20 20 7c 53 65 6c | Line | |Sel|
|00003a50| 65 63 74 20 7c 20 53 75 | 62 73 20 20 7c 5c 6e 20 |ect | Su|bs |\n |
|00003a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a80| 20 20 20 7c 20 20 20 4f | 70 65 6e 20 4c 69 6e 65 | | O|pen Line|
|00003a90| 20 20 20 7c 20 52 65 73 | 65 74 20 7c 20 20 20 20 | | Res|et | |
|00003aa0| 20 20 20 7c 5c 6e 20 20 | 20 20 20 20 20 20 20 20 | |\n | |
|00003ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ac0| 20 20 20 20 20 20 20 20 | 20 20 7c 5f 5f 5f 5f 5f | | |_____|
|00003ad0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 7c 5f 5f 5f 5f 5f |________|__|_____|
|00003ae0| 5f 5f 7c 5f 5f 5f 5f 5f | 5f 5f 7c 5c 6e 22 20 74 |__|_____|__|\n" t|
|00003af0| 70 75 2d 68 65 6c 70 2d | 6b 65 79 70 61 64 2d 6d |pu-help-|keypad-m|
|00003b00| 61 70 20 22 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |ap "\n\n|\n\n\n\n|
|00003b10| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003b20| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003b30| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003b40| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003b50| 5c 6e 5c 66 5c 6e 5c 6e | 20 20 20 20 20 20 43 6f |\n\f\n\n| Co|
|00003b60| 6e 74 72 6f 6c 20 43 68 | 61 72 61 63 74 65 72 73 |ntrol Ch|aracters|
|00003b70| 5c 6e 5c 6e 20 20 20 20 | 20 20 5e 41 20 20 74 6f |\n\n | ^A to|
|00003b80| 67 67 6c 65 20 69 6e 73 | 65 72 74 20 61 6e 64 20 |ggle ins|ert and |
|00003b90| 6f 76 65 72 77 72 69 74 | 65 5c 6e 20 20 20 20 20 |overwrit|e\n |
|00003ba0| 20 5e 42 20 20 72 65 63 | 61 6c 6c 5c 6e 20 20 20 | ^B rec|all\n |
|00003bb0| 20 20 20 5e 45 20 20 65 | 6e 64 20 6f 66 20 6c 69 | ^E e|nd of li|
|00003bc0| 6e 65 5c 6e 5c 6e 20 20 | 20 20 20 20 5e 47 20 20 |ne\n\n | ^G |
|00003bd0| 43 61 6e 63 65 6c 20 63 | 75 72 72 65 6e 74 20 6f |Cancel c|urrent o|
|00003be0| 70 65 72 61 74 69 6f 6e | 5c 6e 20 20 20 20 20 20 |peration|\n |
|00003bf0| 5e 48 20 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |^H begi|nning of|
|00003c00| 20 6c 69 6e 65 5c 6e 20 | 20 20 20 20 20 5e 4a 20 | line\n | ^J |
|00003c10| 20 64 65 6c 65 74 65 20 | 70 72 65 76 69 6f 75 73 | delete |previous|
|00003c20| 20 77 6f 72 64 5c 6e 5c | 6e 20 20 20 20 20 20 5e | word\n\|n ^|
|00003c30| 4b 20 20 6c 65 61 72 6e | 5c 6e 20 20 20 20 20 20 |K learn|\n |
|00003c40| 5e 4c 20 20 69 6e 73 65 | 72 74 20 70 61 67 65 20 |^L inse|rt page |
|00003c50| 62 72 65 61 6b 5c 6e 20 | 20 20 20 20 20 5e 52 20 |break\n | ^R |
|00003c60| 20 72 65 6d 65 6d 62 65 | 72 20 28 64 75 72 69 6e | remembe|r (durin|
|00003c70| 67 20 6c 65 61 72 6e 29 | 2c 20 72 65 2d 63 65 6e |g learn)|, re-cen|
|00003c80| 74 65 72 5c 6e 5c 6e 20 | 20 20 20 20 20 5e 55 20 |ter\n\n | ^U |
|00003c90| 20 64 65 6c 65 74 65 20 | 74 6f 20 62 65 67 69 6e | delete |to begin|
|00003ca0| 6e 69 6e 67 20 6f 66 20 | 6c 69 6e 65 5c 6e 20 20 |ning of |line\n |
|00003cb0| 20 20 20 20 5e 56 20 20 | 71 75 6f 74 65 5c 6e 20 | ^V |quote\n |
|00003cc0| 20 20 20 20 20 5e 57 20 | 20 72 65 66 72 65 73 68 | ^W | refresh|
|00003cd0| 5c 6e 5c 6e 20 20 20 20 | 20 20 5e 5a 20 20 65 78 |\n\n | ^Z ex|
|00003ce0| 69 74 5c 6e 20 20 20 20 | 5e 58 5e 58 20 20 65 78 |it\n |^X^X ex|
|00003cf0| 63 68 61 6e 67 65 20 70 | 6f 69 6e 74 20 61 6e 64 |change p|oint and|
|00003d00| 20 6d 61 72 6b 20 2d 20 | 75 73 65 66 75 6c 20 66 | mark - |useful f|
|00003d10| 6f 72 20 63 68 65 63 6b | 69 6e 67 20 72 65 67 69 |or check|ing regi|
|00003d20| 6f 6e 20 62 6f 75 6e 64 | 61 72 69 65 73 5c 6e 5c |on bound|aries\n\|
|00003d30| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003d40| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003d50| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003d60| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003d70| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 66 5c |n\n\n\n\|n\n\n\f\|
|00003d80| 6e 20 20 20 20 20 20 20 | 47 6f 6c 64 2d 3c 6b 65 |n |Gold-<ke|
|00003d90| 79 3e 20 46 75 6e 63 74 | 69 6f 6e 73 5c 6e 5c 6e |y> Funct|ions\n\n|
|00003da0| 20 20 20 20 20 20 20 42 | 20 20 20 20 20 4e 65 78 | B| Nex|
|00003db0| 74 20 42 75 66 66 65 72 | 20 2d 20 64 69 73 70 6c |t Buffer| - displ|
|00003dc0| 61 79 20 74 68 65 20 6e | 65 78 74 20 62 75 66 66 |ay the n|ext buff|
|00003dd0| 65 72 20 28 61 6c 6c 20 | 62 75 66 66 65 72 73 29 |er (all |buffers)|
|00003de0| 5c 6e 20 20 20 20 20 20 | 20 43 20 20 20 20 20 52 |\n | C R|
|00003df0| 65 63 61 6c 6c 20 2d 20 | 65 64 69 74 20 61 6e 64 |ecall - |edit and|
|00003e00| 20 70 6f 73 73 69 62 6c | 79 20 72 65 70 65 61 74 | possibl|y repeat|
|00003e10| 20 70 72 65 76 69 6f 75 | 73 20 63 6f 6d 6d 61 6e | previou|s comman|
|00003e20| 64 73 5c 6e 20 20 20 20 | 20 20 20 45 20 20 20 20 |ds\n | E |
|00003e30| 20 45 78 69 74 20 2d 20 | 73 61 76 65 20 63 75 72 | Exit - |save cur|
|00003e40| 72 65 6e 74 20 62 75 66 | 66 65 72 20 61 6e 64 20 |rent buf|fer and |
|00003e50| 61 73 6b 20 61 62 6f 75 | 74 20 6f 74 68 65 72 73 |ask abou|t others|
|00003e60| 5c 6e 5c 6e 20 20 20 20 | 20 20 20 47 20 20 20 20 |\n\n | G |
|00003e70| 20 47 65 74 20 2d 20 6c | 6f 61 64 20 61 20 66 69 | Get - l|oad a fi|
|00003e80| 6c 65 20 69 6e 74 6f 20 | 61 20 6e 65 77 20 65 64 |le into |a new ed|
|00003e90| 69 74 20 62 75 66 66 65 | 72 5c 6e 20 20 20 20 20 |it buffe|r\n |
|00003ea0| 20 20 49 20 20 20 20 20 | 49 6e 63 6c 75 64 65 20 | I |Include |
|00003eb0| 2d 20 69 6e 63 6c 75 64 | 65 20 61 20 66 69 6c 65 |- includ|e a file|
|00003ec0| 20 69 6e 20 74 68 69 73 | 20 62 75 66 66 65 72 5c | in this| buffer\|
|00003ed0| 6e 20 20 20 20 20 20 20 | 4b 20 20 20 20 20 4b 69 |n |K Ki|
|00003ee0| 6c 6c 20 42 75 66 66 65 | 72 20 2d 20 61 62 61 6e |ll Buffe|r - aban|
|00003ef0| 64 6f 6e 20 65 64 69 74 | 73 20 61 6e 64 20 64 65 |don edit|s and de|
|00003f00| 6c 65 74 65 20 62 75 66 | 66 65 72 5c 6e 5c 6e 20 |lete buf|fer\n\n |
|00003f10| 20 20 20 20 20 20 4d 20 | 20 20 20 20 42 75 66 66 | M | Buff|
|00003f20| 65 72 20 4d 65 6e 75 20 | 2d 20 64 69 73 70 6c 61 |er Menu |- displa|
|00003f30| 79 20 61 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |y a list| of all |
|00003f40| 62 75 66 66 65 72 73 5c | 6e 20 20 20 20 20 20 20 |buffers\|n |
|00003f50| 4e 20 20 20 20 20 4e 65 | 78 74 20 46 69 6c 65 20 |N Ne|xt File |
|00003f60| 42 75 66 66 65 72 20 2d | 20 64 69 73 70 6c 61 79 |Buffer -| display|
|00003f70| 20 6e 65 78 74 20 62 75 | 66 66 65 72 20 63 6f 6e | next bu|ffer con|
|00003f80| 74 61 69 6e 69 6e 67 20 | 61 20 66 69 6c 65 5c 6e |taining |a file\n|
|00003f90| 20 20 20 20 20 20 20 4f | 20 20 20 20 20 4f 63 63 | O| Occ|
|00003fa0| 75 72 20 2d 20 73 68 6f | 77 20 66 6f 6c 6c 6f 77 |ur - sho|w follow|
|00003fb0| 69 6e 67 20 6c 69 6e 65 | 73 20 63 6f 6e 74 61 69 |ing line|s contai|
|00003fc0| 6e 69 6e 67 20 52 45 47 | 45 58 50 5c 6e 5c 6e 20 |ning REG|EXP\n\n |
|00003fd0| 20 20 20 20 20 20 51 20 | 20 20 20 20 51 75 69 74 | Q | Quit|
|00003fe0| 20 2d 20 65 78 69 74 20 | 77 69 74 68 6f 75 74 20 | - exit |without |
|00003ff0| 73 61 76 69 6e 67 20 61 | 6e 79 74 68 69 6e 67 5c |saving a|nything\|
|00004000| 6e 20 20 20 20 20 20 20 | 52 20 20 20 20 20 54 6f |n |R To|
|00004010| 67 67 6c 65 20 72 65 63 | 74 61 6e 67 75 6c 61 72 |ggle rec|tangular|
|00004020| 20 6d 6f 64 65 20 66 6f | 72 20 72 65 6d 6f 76 65 | mode fo|r remove|
|00004030| 20 61 6e 64 20 69 6e 73 | 65 72 74 5c 6e 20 20 20 | and ins|ert\n |
|00004040| 20 20 20 20 53 20 20 20 | 20 20 53 65 61 72 63 68 | S | Search|
|00004050| 20 61 6e 64 20 73 75 62 | 73 74 69 74 75 74 65 20 | and sub|stitute |
|00004060| 2d 20 6c 69 6e 65 20 6d | 6f 64 65 20 52 45 50 4c |- line m|ode REPL|
|00004070| 41 43 45 20 63 6f 6d 6d | 61 6e 64 5c 6e 5c 6e 20 |ACE comm|and\n\n |
|00004080| 20 20 20 20 20 20 55 20 | 20 20 20 20 55 6e 64 6f | U | Undo|
|00004090| 20 2d 20 75 6e 64 6f 20 | 74 68 65 20 6c 61 73 74 | - undo |the last|
|000040a0| 20 65 64 69 74 5c 6e 20 | 20 20 20 20 20 20 57 20 | edit\n | W |
|000040b0| 20 20 20 20 57 72 69 74 | 65 20 2d 20 73 61 76 65 | Writ|e - save|
|000040c0| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 5c | current| buffer\|
|000040d0| 6e 20 20 20 20 20 20 20 | 58 20 20 20 20 20 45 78 |n |X Ex|
|000040e0| 69 74 20 2d 20 73 61 76 | 65 20 61 6c 6c 20 6d 6f |it - sav|e all mo|
|000040f0| 64 69 66 69 65 64 20 62 | 75 66 66 65 72 73 20 61 |dified b|uffers a|
|00004100| 6e 64 20 65 78 69 74 5c | 6e 5c 6e 5c 6e 5c 6e 5c |nd exit\|n\n\n\n\|
|00004110| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00004120| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00004130| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00004140| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00004150| 6e 5c 6e 5c 6e 5c 6e 5c | 66 5c 6e 5c 6e 20 20 20 |n\n\n\n\|f\n\n |
|00004160| 2a 2a 2a 20 4e 6f 20 6d | 6f 72 65 20 68 65 6c 70 |*** No m|ore help|
|00004170| 2c 20 75 73 65 20 50 20 | 74 6f 20 76 69 65 77 20 |, use P |to view |
|00004180| 70 72 65 76 69 6f 75 73 | 20 73 63 72 65 65 6e 22 |previous| screen"|
|00004190| 20 74 70 75 2d 68 65 6c | 70 2d 74 65 78 74 20 62 | tpu-hel|p-text b|
|000041a0| 6f 75 6e 64 70 20 74 70 | 75 2d 68 65 6c 70 2d 65 |oundp tp|u-help-e|
|000041b0| 6e 74 65 72 20 66 6f 72 | 6d 61 74 20 22 25 73 22 |nter for|mat "%s"|
|000041c0| 20 22 1b 4f 4d 22 20 74 | 70 75 2d 68 65 6c 70 2d | ".OM" t|pu-help-|
|000041d0| 72 65 74 75 72 6e 20 22 | 0d 22 20 74 70 75 2d 68 |return "|." tpu-h|
|000041e0| 65 6c 70 2d 4e 20 22 4e | 22 20 74 70 75 2d 68 65 |elp-N "N|" tpu-he|
|000041f0| 6c 70 2d 6e 20 22 6e 22 | 20 74 70 75 2d 68 65 6c |lp-n "n"| tpu-hel|
|00004200| 70 2d 50 20 22 50 22 20 | 74 70 75 2d 68 65 6c 70 |p-P "P" |tpu-help|
|00004210| 2d 70 20 22 70 22 5d 20 | 33 29 0a 28 64 65 66 61 |-p "p"] |3).(defa|
|00004220| 6c 69 61 73 20 27 74 70 | 75 2d 68 65 6c 70 20 23 |lias 'tp|u-help #|
|00004230| 5b 6e 69 6c 20 22 c0 8b | 87 22 20 5b 28 28 62 79 |[nil "..|." [((by|
|00004240| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 84 17 00 c2 |te-code |"..!....|
|00004250| c1 21 88 c3 c1 21 88 5c | 66 63 88 0d 63 88 c6 16 |.!...!.\|fc..c...|
|00004260| 07 c3 c1 21 88 c8 20 88 | c9 20 88 ca 79 88 cb 20 |...!.. .|. ..y.. |
|00004270| 88 cc 89 89 1e 0d 1e 0e | 1e 0f 0e 10 0e 0e 9a 3f |........|.......?|
|00004280| 85 d4 00 0e 0d 83 46 00 | d1 d2 21 16 0f 82 4b 00 |......F.|..!...K.|
|00004290| d1 d3 21 16 0f d4 d5 0e | 0f 5c 22 16 0e 0e 16 0e |..!.....|.\".....|
|000042a0| 0e 9a 83 63 00 cc 16 0d | c8 20 88 82 30 00 0e 17 |...c....|. ..0...|
|000042b0| 0e 0e 9a 84 73 00 0e 18 | 0e 0e 9a 83 8c 00 0e 0d |....s...|........|
|000042c0| 83 80 00 cc d9 da 8f 88 | 82 30 00 db 20 88 ca 79 |........|.0.. ..y|
|000042d0| 88 cb 20 88 82 30 00 0e | 1c 0e 0e 9a 84 9c 00 0e |.. ..0..|........|
|000042e0| 1d 0e 0e 9a 83 b6 00 0e | 0d 83 a9 00 cc de df 8f |........|........|
|000042f0| 88 82 30 00 e0 e1 21 88 | ca 79 88 cb 20 88 82 30 |..0...!.|.y.. ..0|
|00004300| 00 0e 10 0e 0e 9a 84 30 | 00 c6 16 0d e2 0e 0f 21 |.......0|.......!|
|00004310| 88 e3 0e 0f 21 84 30 00 | e4 e5 21 88 82 30 00 2b |....!.0.|..!..0.+|
|00004320| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 20 22 |." [get-|buffer "|
|00004330| 2a 54 50 55 2d 65 64 74 | 20 48 65 6c 70 2a 22 20 |*TPU-edt| Help*" |
|00004340| 67 65 6e 65 72 61 74 65 | 2d 6e 65 77 2d 62 75 66 |generate|-new-buf|
|00004350| 66 65 72 20 73 77 69 74 | 63 68 2d 74 6f 2d 62 75 |fer swit|ch-to-bu|
|00004360| 66 66 65 72 20 74 70 75 | 2d 68 65 6c 70 2d 6b 65 |ffer tpu|-help-ke|
|00004370| 79 70 61 64 2d 6d 61 70 | 20 74 70 75 2d 68 65 6c |ypad-map| tpu-hel|
|00004380| 70 2d 74 65 78 74 20 74 | 20 62 75 66 66 65 72 2d |p-text t| buffer-|
|00004390| 72 65 61 64 2d 6f 6e 6c | 79 20 64 65 6c 65 74 65 |read-onl|y delete|
|000043a0| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 73 20 74 |-other-w|indows t|
|000043b0| 70 75 2d 6d 6f 76 65 2d | 74 6f 2d 62 65 67 69 6e |pu-move-|to-begin|
|000043c0| 6e 69 6e 67 20 31 20 74 | 70 75 2d 6c 69 6e 65 2d |ning 1 t|pu-line-|
|000043d0| 74 6f 2d 74 6f 70 2d 6f | 66 2d 77 69 6e 64 6f 77 |to-top-o|f-window|
|000043e0| 20 6e 69 6c 20 73 70 6c | 69 74 20 66 6b 65 79 20 | nil spl|it fkey |
|000043f0| 6b 65 79 20 74 70 75 2d | 68 65 6c 70 2d 72 65 74 |key tpu-|help-ret|
|00004400| 75 72 6e 20 72 65 61 64 | 2d 6b 65 79 2d 73 65 71 |urn read|-key-seq|
|00004410| 75 65 6e 63 65 20 22 50 | 72 65 73 73 20 74 68 65 |uence "P|ress the|
|00004420| 20 6b 65 79 20 79 6f 75 | 20 77 61 6e 74 20 68 65 | key you| want he|
|00004430| 6c 70 20 6f 6e 20 28 52 | 45 54 3d 65 78 69 74 2c |lp on (R|ET=exit,|
|00004440| 20 45 4e 54 45 52 3d 72 | 65 64 69 73 70 6c 61 79 | ENTER=r|edisplay|
|00004450| 2c 20 4e 3d 6e 65 78 74 | 2c 20 50 3d 70 72 65 76 |, N=next|, P=prev|
|00004460| 29 3a 20 22 20 22 50 72 | 65 73 73 20 74 68 65 20 |): " "Pr|ess the |
|00004470| 6b 65 79 20 79 6f 75 20 | 77 61 6e 74 20 68 65 6c |key you |want hel|
|00004480| 70 20 6f 6e 20 28 52 45 | 54 20 74 6f 20 65 78 69 |p on (RE|T to exi|
|00004490| 74 2c 20 4e 20 6e 65 78 | 74 20 73 63 72 65 65 6e |t, N nex|t screen|
|000044a0| 2c 20 50 20 70 72 65 76 | 20 73 63 72 65 65 6e 29 |, P prev| screen)|
|000044b0| 3a 20 22 20 66 6f 72 6d | 61 74 20 22 25 73 22 20 |: " form|at "%s" |
|000044c0| 74 70 75 2d 68 65 6c 70 | 2d 65 6e 74 65 72 20 74 |tpu-help|-enter t|
|000044d0| 70 75 2d 68 65 6c 70 2d | 4e 20 74 70 75 2d 68 65 |pu-help-|N tpu-he|
|000044e0| 6c 70 2d 6e 20 28 73 63 | 72 6f 6c 6c 2d 6f 74 68 |lp-n (sc|roll-oth|
|000044f0| 65 72 2d 77 69 6e 64 6f | 77 20 38 29 20 28 28 65 |er-windo|w 8) ((e|
|00004500| 72 72 6f 72 29 29 20 66 | 6f 72 77 61 72 64 2d 70 |rror)) f|orward-p|
|00004510| 61 67 65 20 74 70 75 2d | 68 65 6c 70 2d 50 20 74 |age tpu-|help-P t|
|00004520| 70 75 2d 68 65 6c 70 2d | 70 20 28 73 63 72 6f 6c |pu-help-|p (scrol|
|00004530| 6c 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 2d |l-other-|window -|
|00004540| 38 29 20 28 28 65 72 72 | 6f 72 29 29 20 62 61 63 |8) ((err|or)) bac|
|00004550| 6b 77 61 72 64 2d 70 61 | 67 65 20 32 20 64 65 73 |kward-pa|ge 2 des|
|00004560| 63 72 69 62 65 2d 6b 65 | 79 20 6b 65 79 2d 62 69 |cribe-ke|y key-bi|
|00004570| 6e 64 69 6e 67 20 73 69 | 74 2d 66 6f 72 20 33 5d |nding si|t-for 3]|
|00004580| 20 33 29 29 5d 20 31 20 | 22 5c 0a 44 69 73 70 6c | 3))] 1 |"\.Displ|
|00004590| 61 79 20 54 50 55 2d 65 | 64 74 20 68 65 6c 70 2e |ay TPU-e|dt help.|
|000045a0| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|000045b0| 73 20 27 74 70 75 2d 69 | 6e 73 65 72 74 2d 65 73 |s 'tpu-i|nsert-es|
|000045c0| 63 61 70 65 20 23 5b 6e | 69 6c 20 22 c0 63 87 22 |cape #[n|il ".c."|
|000045d0| 20 5b 22 1b 22 5d 20 31 | 20 22 5c 0a 49 6e 73 65 | ["."] 1| "\.Inse|
|000045e0| 72 74 73 20 61 6e 20 65 | 73 63 61 70 65 20 63 68 |rts an e|scape ch|
|000045f0| 61 72 61 63 74 65 72 2c | 20 61 6e 64 20 73 6f 20 |aracter,| and so |
|00004600| 62 65 63 6f 6d 65 73 20 | 74 68 65 20 65 73 63 61 |becomes |the esca|
|00004610| 70 65 2d 6b 65 79 20 61 | 6c 69 61 73 2e 22 20 6e |pe-key a|lias." n|
|00004620| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00004630| 74 70 75 2d 69 6e 73 65 | 72 74 2d 66 6f 72 6d 66 |tpu-inse|rt-formf|
|00004640| 65 65 64 20 23 5b 6e 69 | 6c 20 22 c0 63 87 22 20 |eed #[ni|l ".c." |
|00004650| 5b 22 5c 66 22 5d 20 31 | 20 22 5c 0a 49 6e 73 65 |["\f"] 1| "\.Inse|
|00004660| 72 74 73 20 61 20 66 6f | 72 6d 66 65 65 64 20 63 |rts a fo|rmfeed c|
|00004670| 68 61 72 61 63 74 65 72 | 2e 22 20 6e 69 6c 5d 29 |haracter|." nil])|
|00004680| 0a 28 64 65 66 76 61 72 | 20 74 70 75 2d 73 61 76 |.(defvar| tpu-sav|
|00004690| 65 64 2d 63 6f 6e 74 72 | 6f 6c 2d 72 20 6e 69 6c |ed-contr|ol-r nil|
|000046a0| 20 22 5c 0a 53 61 76 65 | 64 20 76 61 6c 75 65 20 | "\.Save|d value |
|000046b0| 6f 66 20 43 6f 6e 74 72 | 6f 6c 2d 72 2e 22 29 0a |of Contr|ol-r.").|
|000046c0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 65 |(defalia|s 'tpu-e|
|000046d0| 6e 64 2d 64 65 66 69 6e | 65 2d 6d 61 63 72 6f 2d |nd-defin|e-macro-|
|000046e0| 6b 65 79 20 23 5b 28 6b | 65 79 29 20 22 c0 c1 21 |key #[(k|ey) "..!|
|000046f0| 88 c2 0b 5c 66 5c 22 88 | c2 c5 0e 06 5c 22 87 22 |...\f\".|....\"."|
|00004700| 20 5b 65 6e 64 2d 6b 62 | 64 2d 6d 61 63 72 6f 20 | [end-kb|d-macro |
|00004710| 6e 69 6c 20 67 6c 6f 62 | 61 6c 2d 73 65 74 2d 6b |nil glob|al-set-k|
|00004720| 65 79 20 6b 65 79 20 6c | 61 73 74 2d 6b 62 64 2d |ey key l|ast-kbd-|
|00004730| 6d 61 63 72 6f 20 22 12 | 22 20 74 70 75 2d 73 61 |macro ".|" tpu-sa|
|00004740| 76 65 64 2d 63 6f 6e 74 | 72 6f 6c 2d 72 5d 20 33 |ved-cont|rol-r] 3|
|00004750| 20 22 5c 0a 45 6e 64 73 | 20 74 68 65 20 63 75 72 | "\.Ends| the cur|
|00004760| 72 65 6e 74 20 6d 61 63 | 72 6f 20 64 65 66 69 6e |rent mac|ro defin|
|00004770| 69 74 69 6f 6e 22 20 22 | 6b 50 72 65 73 73 20 74 |ition" "|kPress t|
|00004780| 68 65 20 6b 65 79 20 79 | 6f 75 20 77 61 6e 74 20 |he key y|ou want |
|00004790| 74 6f 20 75 73 65 20 74 | 6f 20 64 6f 20 77 68 61 |to use t|o do wha|
|000047a0| 74 20 77 61 73 20 6a 75 | 73 74 20 6c 65 61 72 6e |t was ju|st learn|
|000047b0| 65 64 3a 20 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ed: "]).|(defalia|
|000047c0| 73 20 27 74 70 75 2d 64 | 65 66 69 6e 65 2d 6d 61 |s 'tpu-d|efine-ma|
|000047d0| 63 72 6f 2d 6b 65 79 20 | 23 5b 6e 69 6c 20 22 c0 |cro-key |#[nil ".|
|000047e0| c1 21 12 c3 c1 c4 5c 22 | 88 c5 c6 21 87 22 20 5b |.!....\"|...!." [|
|000047f0| 67 6c 6f 62 61 6c 2d 6b | 65 79 2d 62 69 6e 64 69 |global-k|ey-bindi|
|00004800| 6e 67 20 22 12 22 20 74 | 70 75 2d 73 61 76 65 64 |ng "." t|pu-saved|
|00004810| 2d 63 6f 6e 74 72 6f 6c | 2d 72 20 67 6c 6f 62 61 |-control|-r globa|
|00004820| 6c 2d 73 65 74 2d 6b 65 | 79 20 74 70 75 2d 65 6e |l-set-ke|y tpu-en|
|00004830| 64 2d 64 65 66 69 6e 65 | 2d 6d 61 63 72 6f 2d 6b |d-define|-macro-k|
|00004840| 65 79 20 73 74 61 72 74 | 2d 6b 62 64 2d 6d 61 63 |ey start|-kbd-mac|
|00004850| 72 6f 20 6e 69 6c 5d 20 | 33 20 22 5c 0a 42 69 6e |ro nil] |3 "\.Bin|
|00004860| 64 20 61 20 73 65 74 20 | 6f 66 20 6b 65 79 73 74 |d a set |of keyst|
|00004870| 72 6f 6b 65 73 20 74 6f | 20 61 20 73 69 6e 67 6c |rokes to| a singl|
|00004880| 65 20 6b 65 79 2c 20 6f | 72 20 6b 65 79 20 63 6f |e key, o|r key co|
|00004890| 6d 62 69 6e 61 74 69 6f | 6e 2e 22 20 6e 69 6c 5d |mbinatio|n." nil]|
|000048a0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|000048b0| 2d 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 23 5b 6e |-kill-bu|ffer #[n|
|000048c0| 69 6c 20 22 08 83 08 00 | c1 c2 21 88 c3 70 21 87 |il "....|..!..p!.|
|000048d0| 22 20 5b 74 70 75 2d 6b | 69 6c 6c 2d 62 75 66 66 |" [tpu-k|ill-buff|
|000048e0| 65 72 73 2d 73 69 6c 65 | 6e 74 6c 79 20 73 65 74 |ers-sile|ntly set|
|000048f0| 2d 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |-buffer-|modified|
|00004900| 2d 70 20 6e 69 6c 20 6b | 69 6c 6c 2d 62 75 66 66 |-p nil k|ill-buff|
|00004910| 65 72 5d 20 32 20 22 5c | 0a 4b 69 6c 6c 73 20 74 |er] 2 "\|.Kills t|
|00004920| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|00004930| 72 2e 20 20 49 66 20 74 | 70 75 2d 6b 69 6c 6c 2d |r. If t|pu-kill-|
|00004940| 62 75 66 66 65 72 73 2d | 73 69 6c 65 6e 74 6c 79 |buffers-|silently|
|00004950| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 0a 6b 69 6c | is non-|nil,.kil|
|00004960| 6c 73 20 6d 6f 64 69 66 | 69 65 64 20 62 75 66 66 |ls modif|ied buff|
|00004970| 65 72 73 20 77 69 74 68 | 6f 75 74 20 61 73 6b 69 |ers with|out aski|
|00004980| 6e 67 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |ng." nil|]).(defa|
|00004990| 6c 69 61 73 20 27 74 70 | 75 2d 73 61 76 65 2d 61 |lias 'tp|u-save-a|
|000049a0| 6c 6c 2d 62 75 66 66 65 | 72 73 2d 6b 69 6c 6c 2d |ll-buffe|rs-kill-|
|000049b0| 65 6d 61 63 73 20 23 5b | 6e 69 6c 20 22 c0 11 c2 |emacs #[|nil "...|
|000049c0| c0 21 87 22 20 5b 74 20 | 74 72 69 6d 2d 76 65 72 |.!." [t |trim-ver|
|000049d0| 73 69 6f 6e 73 2d 77 69 | 74 68 6f 75 74 2d 61 73 |sions-wi|thout-as|
|000049e0| 6b 69 6e 67 20 73 61 76 | 65 2d 62 75 66 66 65 72 |king sav|e-buffer|
|000049f0| 73 2d 6b 69 6c 6c 2d 65 | 6d 61 63 73 5d 20 32 20 |s-kill-e|macs] 2 |
|00004a00| 22 5c 0a 53 61 76 65 20 | 61 6c 6c 20 62 75 66 66 |"\.Save |all buff|
|00004a10| 65 72 73 20 61 6e 64 20 | 65 78 69 74 20 65 6d 61 |ers and |exit ema|
|00004a20| 63 73 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |cs." nil|]).(defa|
|00004a30| 6c 69 61 73 20 27 74 70 | 75 2d 77 72 69 74 65 2d |lias 'tp|u-write-|
|00004a40| 63 75 72 72 65 6e 74 2d | 62 75 66 66 65 72 73 20 |current-|buffers |
|00004a50| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 73 61 |#[nil ".|.!." [sa|
|00004a60| 76 65 2d 73 6f 6d 65 2d | 62 75 66 66 65 72 73 20 |ve-some-|buffers |
|00004a70| 74 5d 20 32 20 22 5c 0a | 53 61 76 65 20 61 6c 6c |t] 2 "\.|Save all|
|00004a80| 20 6d 6f 64 69 66 69 65 | 64 20 62 75 66 66 65 72 | modifie|d buffer|
|00004a90| 73 20 77 69 74 68 6f 75 | 74 20 65 78 69 74 69 6e |s withou|t exitin|
|00004aa0| 67 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |g." nil]|).(defal|
|00004ab0| 69 61 73 20 27 74 70 75 | 2d 6e 65 78 74 2d 62 75 |ias 'tpu|-next-bu|
|00004ac0| 66 66 65 72 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 20 |ffer #[n|il "... |
|00004ad0| 21 40 21 87 22 20 5b 73 | 77 69 74 63 68 2d 74 6f |!@!." [s|witch-to|
|00004ae0| 2d 62 75 66 66 65 72 20 | 72 65 76 65 72 73 65 20 |-buffer |reverse |
|00004af0| 62 75 66 66 65 72 2d 6c | 69 73 74 5d 20 33 20 22 |buffer-l|ist] 3 "|
|00004b00| 5c 0a 47 6f 20 74 6f 20 | 6e 65 78 74 20 62 75 66 |\.Go to |next buf|
|00004b10| 66 65 72 20 69 6e 20 72 | 69 6e 67 2e 22 20 6e 69 |fer in r|ing." ni|
|00004b20| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |l]).(def|alias 't|
|00004b30| 70 75 2d 6e 65 78 74 2d | 66 69 6c 65 2d 62 75 66 |pu-next-|file-buf|
|00004b40| 66 65 72 20 23 5b 6e 69 | 6c 20 22 c0 20 19 c2 c3 |fer #[ni|l ". ...|
|00004b50| c4 20 21 40 21 88 c0 20 | 09 9a 84 5c 22 00 c5 20 |. !@!.. |...\".. |
|00004b60| 84 5c 22 00 c2 c3 c4 20 | 21 40 21 88 82 0b 00 c0 |.\".... |!@!.....|
|00004b70| 20 09 9a 85 2c 00 c6 c7 | 21 29 87 22 20 5b 62 75 | ...,...|!)." [bu|
|00004b80| 66 66 65 72 2d 6e 61 6d | 65 20 73 74 61 72 74 69 |ffer-nam|e starti|
|00004b90| 6e 67 2d 62 75 66 66 65 | 72 20 73 77 69 74 63 68 |ng-buffe|r switch|
|00004ba0| 2d 74 6f 2d 62 75 66 66 | 65 72 20 72 65 76 65 72 |-to-buff|er rever|
|00004bb0| 73 65 20 62 75 66 66 65 | 72 2d 6c 69 73 74 20 62 |se buffe|r-list b|
|00004bc0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|00004bd0| 65 72 72 6f 72 20 22 4e | 6f 20 6f 74 68 65 72 20 |error "N|o other |
|00004be0| 62 75 66 66 65 72 73 2e | 22 5d 20 33 20 22 5c 0a |buffers.|"] 3 "\.|
|00004bf0| 47 6f 20 74 6f 20 6e 65 | 78 74 20 62 75 66 66 65 |Go to ne|xt buffe|
|00004c00| 72 20 69 6e 20 72 69 6e | 67 20 74 68 61 74 20 69 |r in rin|g that i|
|00004c10| 73 20 76 69 73 69 74 69 | 6e 67 20 61 20 66 69 6c |s visiti|ng a fil|
|00004c20| 65 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |e." nil]|).(defal|
|00004c30| 69 61 73 20 27 74 70 75 | 2d 6e 65 78 74 2d 77 69 |ias 'tpu|-next-wi|
|00004c40| 6e 64 6f 77 20 23 5b 6e | 69 6c 20 22 c0 20 83 09 |ndow #[n|il ". ..|
|00004c50| 00 c1 c2 21 87 c3 c4 21 | 87 22 20 5b 6f 6e 65 2d |...!...!|." [one-|
|00004c60| 77 69 6e 64 6f 77 2d 70 | 20 6d 65 73 73 61 67 65 |window-p| message|
|00004c70| 20 22 54 68 65 72 65 20 | 69 73 20 6f 6e 6c 79 20 | "There |is only |
|00004c80| 6f 6e 65 20 77 69 6e 64 | 6f 77 20 6f 6e 20 73 63 |one wind|ow on sc|
|00004c90| 72 65 65 6e 2e 22 20 6f | 74 68 65 72 2d 77 69 6e |reen." o|ther-win|
|00004ca0| 64 6f 77 20 31 5d 20 32 | 20 22 5c 0a 4d 6f 76 65 |dow 1] 2| "\.Move|
|00004cb0| 20 74 6f 20 74 68 65 20 | 6e 65 78 74 20 77 69 6e | to the |next win|
|00004cc0| 64 6f 77 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |dow." ni|l]).(def|
|00004cd0| 61 6c 69 61 73 20 27 74 | 70 75 2d 70 72 65 76 69 |alias 't|pu-previ|
|00004ce0| 6f 75 73 2d 77 69 6e 64 | 6f 77 20 23 5b 6e 69 6c |ous-wind|ow #[nil|
|00004cf0| 20 22 c0 20 83 09 00 c1 | c2 21 87 c3 c4 20 21 87 | ". ....|.!... !.|
|00004d00| 22 20 5b 6f 6e 65 2d 77 | 69 6e 64 6f 77 2d 70 20 |" [one-w|indow-p |
|00004d10| 6d 65 73 73 61 67 65 20 | 22 54 68 65 72 65 20 69 |message |"There i|
|00004d20| 73 20 6f 6e 6c 79 20 6f | 6e 65 20 77 69 6e 64 6f |s only o|ne windo|
|00004d30| 77 20 6f 6e 20 73 63 72 | 65 65 6e 2e 22 20 73 65 |w on scr|een." se|
|00004d40| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 70 72 65 76 |lect-win|dow prev|
|00004d50| 69 6f 75 73 2d 77 69 6e | 64 6f 77 5d 20 32 20 22 |ious-win|dow] 2 "|
|00004d60| 5c 0a 4d 6f 76 65 20 74 | 6f 20 74 68 65 20 70 72 |\.Move t|o the pr|
|00004d70| 65 76 69 6f 75 73 20 77 | 69 6e 64 6f 77 2e 22 20 |evious w|indow." |
|00004d80| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00004d90| 27 74 70 75 2d 74 6f 67 | 67 6c 65 2d 72 65 67 65 |'tpu-tog|gle-rege|
|00004da0| 78 70 20 23 5b 6e 69 6c | 20 22 08 3f 10 c1 20 88 |xp #[nil| ".?.. .|
|00004db0| 74 85 16 00 c2 c3 08 83 | 14 00 c4 82 15 00 c5 5c |t.......|.......\|
|00004dc0| 22 87 22 20 5b 74 70 75 | 2d 72 65 67 65 78 70 2d |"." [tpu|-regexp-|
|00004dd0| 70 20 74 70 75 2d 73 65 | 74 2d 73 65 61 72 63 68 |p tpu-se|t-search|
|00004de0| 20 6d 65 73 73 61 67 65 | 20 22 52 65 67 75 6c 61 | message| "Regula|
|00004df0| 72 20 65 78 70 72 65 73 | 73 69 6f 6e 20 73 65 61 |r expres|sion sea|
|00004e00| 72 63 68 20 61 6e 64 20 | 73 75 62 73 74 69 74 75 |rch and |substitu|
|00004e10| 74 65 20 25 73 61 62 6c | 65 64 2e 22 20 22 65 6e |te %sabl|ed." "en|
|00004e20| 22 20 22 64 69 73 22 5d | 20 33 20 22 5c 0a 53 77 |" "dis"]| 3 "\.Sw|
|00004e30| 69 74 63 68 65 73 20 69 | 6e 20 61 6e 64 20 6f 75 |itches i|n and ou|
|00004e40| 74 20 6f 66 20 72 65 67 | 75 6c 61 72 20 65 78 70 |t of reg|ular exp|
|00004e50| 72 65 73 73 69 6f 6e 20 | 73 65 61 72 63 68 20 61 |ression |search a|
|00004e60| 6e 64 20 72 65 70 6c 61 | 63 65 20 6d 6f 64 65 2e |nd repla|ce mode.|
|00004e70| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00004e80| 73 20 27 74 70 75 2d 72 | 65 67 65 78 70 2d 70 72 |s 'tpu-r|egexp-pr|
|00004e90| 6f 6d 70 74 20 23 5b 28 | 70 72 6f 6d 70 74 29 20 |ompt #[(|prompt) |
|00004ea0| 22 08 85 05 00 c1 5c 6e | 50 1b 5c 66 83 16 00 c5 |".....\n|P.\f....|
|00004eb0| 0b c6 89 89 c7 25 82 19 | 00 c8 0b 21 29 87 22 20 |.....%..|...!)." |
|00004ec0| 5b 74 70 75 2d 72 65 67 | 65 78 70 2d 70 20 22 52 |[tpu-reg|exp-p "R|
|00004ed0| 45 20 22 20 70 72 6f 6d | 70 74 20 72 65 2d 70 72 |E " prom|pt re-pr|
|00004ee0| 6f 6d 70 74 20 74 70 75 | 2d 65 6d 61 63 73 31 39 |ompt tpu|-emacs19|
|00004ef0| 2d 70 20 72 65 61 64 2d | 66 72 6f 6d 2d 6d 69 6e |-p read-|from-min|
|00004f00| 69 62 75 66 66 65 72 20 | 6e 69 6c 20 74 70 75 2d |ibuffer |nil tpu-|
|00004f10| 72 65 67 65 78 70 2d 70 | 72 6f 6d 70 74 2d 68 69 |regexp-p|rompt-hi|
|00004f20| 73 74 20 72 65 61 64 2d | 73 74 72 69 6e 67 5d 20 |st read-|string] |
|00004f30| 36 20 22 5c 0a 52 65 61 | 64 20 61 20 73 74 72 69 |6 "\.Rea|d a stri|
|00004f40| 6e 67 2c 20 61 64 64 69 | 6e 67 20 27 52 45 27 20 |ng, addi|ng 'RE' |
|00004f50| 74 6f 20 74 68 65 20 70 | 72 6f 6d 70 74 20 69 66 |to the p|rompt if|
|00004f60| 20 74 70 75 2d 72 65 67 | 65 78 70 2d 70 20 69 73 | tpu-reg|exp-p is|
|00004f70| 20 73 65 74 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 | set."])|.(defali|
|00004f80| 61 73 20 27 74 70 75 2d | 73 65 61 72 63 68 20 23 |as 'tpu-|search #|
|00004f90| 5b 6e 69 6c 20 22 c0 20 | 88 c1 c2 21 87 22 20 5b |[nil ". |...!." [|
|00004fa0| 74 70 75 2d 73 65 74 2d | 73 65 61 72 63 68 20 74 |tpu-set-|search t|
|00004fb0| 70 75 2d 73 65 61 72 63 | 68 2d 69 6e 74 65 72 6e |pu-searc|h-intern|
|00004fc0| 61 6c 20 22 22 5d 20 32 | 20 22 5c 0a 53 65 61 72 |al ""] 2| "\.Sear|
|00004fd0| 63 68 20 66 6f 72 20 61 | 20 73 74 72 69 6e 67 20 |ch for a| string |
|00004fe0| 6f 72 20 72 65 67 75 6c | 61 72 20 65 78 70 72 65 |or regul|ar expre|
|00004ff0| 73 73 69 6f 6e 2e 0a 54 | 68 65 20 73 65 61 72 63 |ssion..T|he searc|
|00005000| 68 20 69 73 20 70 65 72 | 66 6f 72 6d 65 64 20 69 |h is per|formed i|
|00005010| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 64 69 |n the cu|rrent di|
|00005020| 72 65 63 74 69 6f 6e 2e | 22 20 6e 69 6c 5d 29 0a |rection.|" nil]).|
|00005030| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 73 |(defalia|s 'tpu-s|
|00005040| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 23 5b |earch-fo|rward #[|
|00005050| 6e 69 6c 20 22 c0 11 c2 | c0 21 88 c3 c4 21 87 22 |nil "...|.!...!."|
|00005060| 20 5b 74 20 74 70 75 2d | 73 65 61 72 63 68 69 6e | [t tpu-|searchin|
|00005070| 67 2d 66 6f 72 77 61 72 | 64 20 74 70 75 2d 73 65 |g-forwar|d tpu-se|
|00005080| 74 2d 73 65 61 72 63 68 | 20 74 70 75 2d 73 65 61 |t-search| tpu-sea|
|00005090| 72 63 68 2d 69 6e 74 65 | 72 6e 61 6c 20 22 22 5d |rch-inte|rnal ""]|
|000050a0| 20 32 20 22 5c 0a 53 65 | 61 72 63 68 20 66 6f 72 | 2 "\.Se|arch for|
|000050b0| 20 61 20 73 74 72 69 6e | 67 20 6f 72 20 72 65 67 | a strin|g or reg|
|000050c0| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 2e |ular exp|ression.|
|000050d0| 0a 54 68 65 20 73 65 61 | 72 63 68 20 69 73 20 62 |.The sea|rch is b|
|000050e0| 65 67 69 6e 73 20 69 6e | 20 74 68 65 20 66 6f 72 |egins in| the for|
|000050f0| 77 61 72 64 20 64 69 72 | 65 63 74 69 6f 6e 2e 22 |ward dir|ection."|
|00005100| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00005110| 20 27 74 70 75 2d 73 65 | 61 72 63 68 2d 72 65 76 | 'tpu-se|arch-rev|
|00005120| 65 72 73 65 20 23 5b 6e | 69 6c 20 22 c0 11 c2 c3 |erse #[n|il "....|
|00005130| 21 88 c4 c5 21 87 22 20 | 5b 6e 69 6c 20 74 70 75 |!...!." |[nil tpu|
|00005140| 2d 73 65 61 72 63 68 69 | 6e 67 2d 66 6f 72 77 61 |-searchi|ng-forwa|
|00005150| 72 64 20 74 70 75 2d 73 | 65 74 2d 73 65 61 72 63 |rd tpu-s|et-searc|
|00005160| 68 20 74 20 74 70 75 2d | 73 65 61 72 63 68 2d 69 |h t tpu-|search-i|
|00005170| 6e 74 65 72 6e 61 6c 20 | 22 22 5d 20 32 20 22 5c |nternal |""] 2 "\|
|00005180| 0a 53 65 61 72 63 68 20 | 66 6f 72 20 61 20 73 74 |.Search |for a st|
|00005190| 72 69 6e 67 20 6f 72 20 | 72 65 67 75 6c 61 72 20 |ring or |regular |
|000051a0| 65 78 70 72 65 73 73 69 | 6f 6e 2e 0a 54 68 65 20 |expressi|on..The |
|000051b0| 73 65 61 72 63 68 20 69 | 73 20 62 65 67 69 6e 73 |search i|s begins|
|000051c0| 20 69 6e 20 74 68 65 20 | 72 65 76 65 72 73 65 20 | in the |reverse |
|000051d0| 64 69 72 65 63 74 69 6f | 6e 2e 22 20 6e 69 6c 5d |directio|n." nil]|
|000051e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|000051f0| 2d 73 65 61 72 63 68 2d | 61 67 61 69 6e 20 23 5b |-search-|again #[|
|00005200| 6e 69 6c 20 22 c0 09 21 | 87 22 20 5b 74 70 75 2d |nil "..!|." [tpu-|
|00005210| 73 65 61 72 63 68 2d 69 | 6e 74 65 72 6e 61 6c 20 |search-i|nternal |
|00005220| 74 70 75 2d 73 65 61 72 | 63 68 2d 6c 61 73 74 2d |tpu-sear|ch-last-|
|00005230| 73 74 72 69 6e 67 5d 20 | 32 20 22 5c 0a 53 65 61 |string] |2 "\.Sea|
|00005240| 72 63 68 20 66 6f 72 20 | 74 68 65 20 73 61 6d 65 |rch for |the same|
|00005250| 20 73 74 72 69 6e 67 20 | 6f 72 20 72 65 67 75 6c | string |or regul|
|00005260| 61 72 20 65 78 70 72 65 | 73 73 69 6f 6e 20 61 73 |ar expre|ssion as|
|00005270| 20 6c 61 73 74 20 74 69 | 6d 65 2e 0a 54 68 65 20 | last ti|me..The |
|00005280| 73 65 61 72 63 68 20 69 | 73 20 70 65 72 66 6f 72 |search i|s perfor|
|00005290| 6d 65 64 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |med in t|he curre|
|000052a0| 6e 74 20 64 69 72 65 63 | 74 69 6f 6e 2e 22 20 6e |nt direc|tion." n|
|000052b0| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|000052c0| 74 70 75 2d 73 65 74 2d | 73 65 61 72 63 68 20 23 |tpu-set-|search #|
|000052d0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|000052e0| 20 22 08 84 5c 6e 00 09 | 85 09 00 c2 13 0b 83 5c | "..\n..|.......\|
|000052f0| 22 00 5c 66 83 1a 00 c5 | c6 4d 88 c7 c8 4d 87 c5 |".\f....|.M...M..|
|00005300| c9 4d 88 c7 ca 4d 87 5c | 66 83 2e 00 c5 c8 4d 88 |.M...M.\|f.....M.|
|00005310| c7 c6 4d 87 c5 ca 4d 88 | c7 c9 4d 87 22 20 5b 61 |..M...M.|..M." [a|
|00005320| 72 67 20 74 70 75 2d 61 | 64 76 61 6e 63 65 20 74 |rg tpu-a|dvance t|
|00005330| 20 74 70 75 2d 73 65 61 | 72 63 68 69 6e 67 2d 66 | tpu-sea|rching-f|
|00005340| 6f 72 77 61 72 64 20 74 | 70 75 2d 72 65 67 65 78 |orward t|pu-regex|
|00005350| 70 2d 70 20 74 70 75 2d | 65 6d 61 63 73 2d 73 65 |p-p tpu-|emacs-se|
|00005360| 61 72 63 68 20 72 65 2d | 73 65 61 72 63 68 2d 66 |arch re-|search-f|
|00005370| 6f 72 77 61 72 64 20 74 | 70 75 2d 65 6d 61 63 73 |orward t|pu-emacs|
|00005380| 2d 72 65 76 2d 73 65 61 | 72 63 68 20 72 65 2d 73 |-rev-sea|rch re-s|
|00005390| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 73 |earch-ba|ckward s|
|000053a0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 73 65 |earch-fo|rward se|
|000053b0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 5d 20 32 |arch-bac|kward] 2|
|000053c0| 20 22 5c 0a 53 65 74 20 | 74 68 65 20 73 65 61 72 | "\.Set |the sear|
|000053d0| 63 68 20 66 75 6e 63 74 | 69 6f 6e 73 20 61 6e 64 |ch funct|ions and|
|000053e0| 20 73 65 74 20 74 68 65 | 20 73 65 61 72 63 68 20 | set the| search |
|000053f0| 64 69 72 65 63 74 69 6f | 6e 20 74 6f 20 74 68 65 |directio|n to the|
|00005400| 20 63 75 72 72 65 6e 74 | 0a 64 69 72 65 63 74 69 | current|.directi|
|00005410| 6f 6e 2e 20 20 49 66 20 | 61 6e 20 61 72 67 75 6d |on. If |an argum|
|00005420| 65 6e 74 20 69 73 20 73 | 70 65 63 69 66 69 65 64 |ent is s|pecified|
|00005430| 2c 20 64 6f 6e 27 74 20 | 73 65 74 20 74 68 65 20 |, don't |set the |
|00005440| 73 65 61 72 63 68 20 64 | 69 72 65 63 74 69 6f 6e |search d|irection|
|00005450| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00005460| 74 70 75 2d 73 65 61 72 | 63 68 2d 69 6e 74 65 72 |tpu-sear|ch-inter|
|00005470| 6e 61 6c 20 23 5b 28 70 | 61 74 20 26 6f 70 74 69 |nal #[(p|at &opti|
|00005480| 6f 6e 61 6c 20 71 75 69 | 65 74 29 20 22 08 c1 98 |onal qui|et) "...|
|00005490| 84 5c 6e 00 08 82 0d 00 | c2 c3 21 14 c5 20 88 c6 |.\n.....|..!.. ..|
|000054a0| 20 88 c7 5c 66 c8 c9 23 | 83 23 00 ca 20 88 cb 20 | ..\f..#|.#.. .. |
|000054b0| 62 87 c6 c9 21 88 c8 89 | 1e 5c 66 1e 0d 8a 0e 0e |b...!...|.\f.....|
|000054c0| 3f 1e 0e c6 20 88 cf 5c | 66 c8 c9 23 16 0d d0 94 |?... ..\|f..#....|
|000054d0| 16 5c 66 2a 0e 0d 83 65 | 00 d1 d2 d3 0e 0e 83 53 |.\f*...e|.......S|
|000054e0| 00 d4 82 54 00 d5 5c 22 | 21 85 79 00 0e 5c 66 62 |...T..\"|!.y..\fb|
|000054f0| 88 ca 20 88 d6 20 82 79 | 00 0e 17 3f 85 79 00 d8 |.. .. .y|...?.y..|
|00005500| d9 0e 1a 83 76 00 db 82 | 77 00 c1 5c 66 23 2a 87 |....v...|w..\f#*.|
|00005510| 22 20 5b 70 61 74 20 22 | 22 20 74 70 75 2d 72 65 |" [pat "|" tpu-re|
|00005520| 67 65 78 70 2d 70 72 6f | 6d 70 74 20 22 53 65 61 |gexp-pro|mpt "Sea|
|00005530| 72 63 68 3a 20 22 20 74 | 70 75 2d 73 65 61 72 63 |rch: " t|pu-searc|
|00005540| 68 2d 6c 61 73 74 2d 73 | 74 72 69 6e 67 20 74 70 |h-last-s|tring tp|
|00005550| 75 2d 75 6e 73 65 74 2d | 6d 61 74 63 68 20 74 70 |u-unset-|match tp|
|00005560| 75 2d 61 64 6a 75 73 74 | 2d 73 65 61 72 63 68 20 |u-adjust|-search |
|00005570| 74 70 75 2d 65 6d 61 63 | 73 2d 73 65 61 72 63 68 |tpu-emac|s-search|
|00005580| 20 6e 69 6c 20 74 20 74 | 70 75 2d 73 65 74 2d 6d | nil t t|pu-set-m|
|00005590| 61 74 63 68 20 74 70 75 | 2d 6d 61 74 63 68 2d 62 |atch tpu|-match-b|
|000055a0| 65 67 69 6e 6e 69 6e 67 | 20 70 6f 73 20 66 6f 75 |eginning| pos fou|
|000055b0| 6e 64 20 74 70 75 2d 73 | 65 61 72 63 68 69 6e 67 |nd tpu-s|earching|
|000055c0| 2d 66 6f 72 77 61 72 64 | 20 74 70 75 2d 65 6d 61 |-forward| tpu-ema|
|000055d0| 63 73 2d 72 65 76 2d 73 | 65 61 72 63 68 20 30 20 |cs-rev-s|earch 0 |
|000055e0| 74 70 75 2d 79 2d 6f 72 | 2d 6e 2d 70 20 66 6f 72 |tpu-y-or|-n-p for|
|000055f0| 6d 61 74 20 22 46 6f 75 | 6e 64 20 69 6e 20 25 73 |mat "Fou|nd in %s|
|00005600| 20 64 69 72 65 63 74 69 | 6f 6e 2e 20 20 47 6f 20 | directi|on. Go |
|00005610| 74 68 65 72 65 3f 20 22 | 20 22 72 65 76 65 72 73 |there? "| "revers|
|00005620| 65 22 20 22 66 6f 72 77 | 61 72 64 22 20 74 70 75 |e" "forw|ard" tpu|
|00005630| 2d 74 6f 67 67 6c 65 2d | 73 65 61 72 63 68 2d 64 |-toggle-|search-d|
|00005640| 69 72 65 63 74 69 6f 6e | 20 71 75 69 65 74 20 6d |irection| quiet m|
|00005650| 65 73 73 61 67 65 20 22 | 25 73 53 65 61 72 63 68 |essage "|%sSearch|
|00005660| 20 66 61 69 6c 65 64 3a | 20 5c 22 25 73 5c 22 22 | failed:| \"%s\""|
|00005670| 20 74 70 75 2d 72 65 67 | 65 78 70 2d 70 20 22 52 | tpu-reg|exp-p "R|
|00005680| 45 20 22 5d 20 34 20 22 | 5c 0a 53 65 61 72 63 68 |E "] 4 "|\.Search|
|00005690| 20 66 6f 72 20 61 20 73 | 74 72 69 6e 67 20 6f 72 | for a s|tring or|
|000056a0| 20 72 65 67 75 6c 61 72 | 20 65 78 70 72 65 73 73 | regular| express|
|000056b0| 69 6f 6e 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ion."]).|(byte-co|
|000056c0| 64 65 20 22 c0 c1 4b 4d | 87 22 20 5b 74 70 75 2d |de "..KM|." [tpu-|
|000056d0| 73 65 61 72 63 68 2d 69 | 6e 74 65 72 6e 61 6c 2d |search-i|nternal-|
|000056e0| 63 6f 72 65 20 74 70 75 | 2d 73 65 61 72 63 68 2d |core tpu|-search-|
|000056f0| 69 6e 74 65 72 6e 61 6c | 5d 20 32 29 0a 28 64 65 |internal|] 2).(de|
|00005700| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 61 64 6a 75 |falias '|tpu-adju|
|00005710| 73 74 2d 73 65 61 72 63 | 68 20 23 5b 28 26 6f 70 |st-searc|h #[(&op|
|00005720| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 08 85 17 |tional a|rg) "...|
|00005730| 00 09 83 10 00 6f 3f 85 | 17 00 c2 75 87 6d 3f 85 |.....o?.|...u.m?.|
|00005740| 17 00 c3 75 87 22 20 5b | 74 70 75 2d 73 65 61 72 |...u." [|tpu-sear|
|00005750| 63 68 69 6e 67 2d 66 6f | 72 77 61 72 64 20 61 72 |ching-fo|rward ar|
|00005760| 67 20 2d 31 20 31 5d 20 | 31 20 22 5c 0a 46 6f 72 |g -1 1] |1 "\.For|
|00005770| 20 66 6f 72 77 61 72 64 | 20 73 65 61 72 63 68 65 | forward| searche|
|00005780| 73 2c 20 6d 6f 76 65 20 | 66 6f 72 77 61 72 64 20 |s, move |forward |
|00005790| 61 20 63 68 61 72 61 63 | 74 65 72 20 62 65 66 6f |a charac|ter befo|
|000057a0| 72 65 20 73 65 61 72 63 | 68 69 6e 67 2c 0a 61 6e |re searc|hing,.an|
|000057b0| 64 20 62 61 63 6b 77 61 | 72 64 20 61 20 63 68 61 |d backwa|rd a cha|
|000057c0| 72 61 63 74 65 72 20 61 | 66 74 65 72 20 61 20 66 |racter a|fter a f|
|000057d0| 61 69 6c 65 64 20 73 65 | 61 72 63 68 2e 20 20 41 |ailed se|arch. A|
|000057e0| 72 67 20 6d 65 61 6e 73 | 20 65 6e 64 20 6f 66 20 |rg means| end of |
|000057f0| 73 65 61 72 63 68 2e 22 | 5d 29 0a 28 64 65 66 61 |search."|]).(defa|
|00005800| 6c 69 61 73 20 27 74 70 | 75 2d 74 6f 67 67 6c 65 |lias 'tp|u-toggle|
|00005810| 2d 73 65 61 72 63 68 2d | 64 69 72 65 63 74 69 6f |-search-|directio|
|00005820| 6e 20 23 5b 6e 69 6c 20 | 22 08 3f 10 c1 c2 21 88 |n #[nil |".?...!.|
|00005830| 74 85 17 00 c3 c4 08 83 | 15 00 c5 82 16 00 c6 5c |t.......|.......\|
|00005840| 22 87 22 20 5b 74 70 75 | 2d 73 65 61 72 63 68 69 |"." [tpu|-searchi|
|00005850| 6e 67 2d 66 6f 72 77 61 | 72 64 20 74 70 75 2d 73 |ng-forwa|rd tpu-s|
|00005860| 65 74 2d 73 65 61 72 63 | 68 20 74 20 6d 65 73 73 |et-searc|h t mess|
|00005870| 61 67 65 20 22 53 65 61 | 72 63 68 69 6e 67 20 25 |age "Sea|rching %|
|00005880| 73 77 61 72 64 2e 22 20 | 22 66 6f 72 22 20 22 62 |sward." |"for" "b|
|00005890| 61 63 6b 22 5d 20 33 20 | 22 5c 0a 54 6f 67 67 6c |ack"] 3 |"\.Toggl|
|000058a0| 65 20 74 68 65 20 54 50 | 55 2d 65 64 74 20 73 65 |e the TP|U-edt se|
|000058b0| 61 72 63 68 20 64 69 72 | 65 63 74 69 6f 6e 2e 0a |arch dir|ection..|
|000058c0| 55 73 65 64 20 66 6f 72 | 20 72 65 76 65 72 73 69 |Used for| reversi|
|000058d0| 6e 67 20 61 20 73 65 61 | 72 63 68 20 69 6e 20 70 |ng a sea|rch in p|
|000058e0| 72 6f 67 72 65 73 73 2e | 22 20 6e 69 6c 5d 29 0a |rogress.|" nil]).|
|000058f0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 73 |(defalia|s 'tpu-s|
|00005900| 65 6c 65 63 74 20 23 5b | 28 26 6f 70 74 69 6f 6e |elect #[|(&option|
|00005910| 61 6c 20 71 75 69 65 74 | 29 20 22 c0 20 83 09 00 |al quiet|) ". ...|
|00005920| c1 5c 6e 21 87 c3 60 21 | 88 c4 20 88 5c 6e 3f 85 |.\n!..`!|.. .\n?.|
|00005930| 18 00 c5 c6 21 87 22 20 | 5b 74 70 75 2d 6d 61 72 |....!." |[tpu-mar|
|00005940| 6b 20 74 70 75 2d 75 6e | 73 65 6c 65 63 74 20 71 |k tpu-un|select q|
|00005950| 75 69 65 74 20 74 70 75 | 2d 73 65 74 2d 6d 61 72 |uiet tpu|-set-mar|
|00005960| 6b 20 74 70 75 2d 75 70 | 64 61 74 65 2d 6d 6f 64 |k tpu-up|date-mod|
|00005970| 65 2d 6c 69 6e 65 20 6d | 65 73 73 61 67 65 20 22 |e-line m|essage "|
|00005980| 4d 6f 76 65 20 74 68 65 | 20 74 65 78 74 20 63 75 |Move the| text cu|
|00005990| 72 73 6f 72 20 74 6f 20 | 73 65 6c 65 63 74 20 74 |rsor to |select t|
|000059a0| 65 78 74 2e 22 5d 20 32 | 20 22 5c 0a 53 65 74 73 |ext."] 2| "\.Sets|
|000059b0| 20 74 68 65 20 6d 61 72 | 6b 20 74 6f 20 64 65 66 | the mar|k to def|
|000059c0| 69 6e 65 20 6f 6e 65 20 | 65 6e 64 20 6f 66 20 61 |ine one |end of a|
|000059d0| 20 72 65 67 69 6f 6e 2e | 22 20 22 50 22 5d 29 0a | region.|" "P"]).|
|000059e0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 75 |(defalia|s 'tpu-u|
|000059f0| 6e 73 65 6c 65 63 74 20 | 23 5b 28 26 6f 70 74 69 |nselect |#[(&opti|
|00005a00| 6f 6e 61 6c 20 71 75 69 | 65 74 29 20 22 c0 11 c2 |onal qui|et) "...|
|00005a10| c0 21 88 c3 20 88 5c 66 | 3f 85 11 00 c5 c6 21 87 |.!.. .\f|?.....!.|
|00005a20| 22 20 5b 6e 69 6c 20 6d | 61 72 6b 2d 72 69 6e 67 |" [nil m|ark-ring|
|00005a30| 20 74 70 75 2d 73 65 74 | 2d 6d 61 72 6b 20 74 70 | tpu-set|-mark tp|
|00005a40| 75 2d 75 70 64 61 74 65 | 2d 6d 6f 64 65 2d 6c 69 |u-update|-mode-li|
|00005a50| 6e 65 20 71 75 69 65 74 | 20 6d 65 73 73 61 67 65 |ne quiet| message|
|00005a60| 20 22 53 65 6c 65 63 74 | 69 6f 6e 20 63 61 6e 63 | "Select|ion canc|
|00005a70| 65 6c 65 64 2e 22 5d 20 | 32 20 22 5c 0a 52 65 6d |eled."] |2 "\.Rem|
|00005a80| 6f 76 65 73 20 74 68 65 | 20 6d 61 72 6b 20 74 6f |oves the| mark to|
|00005a90| 20 75 6e 73 65 6c 65 63 | 74 20 74 68 65 20 63 75 | unselec|t the cu|
|00005aa0| 72 72 65 6e 74 20 72 65 | 67 69 6f 6e 2e 22 20 22 |rrent re|gion." "|
|00005ab0| 50 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |P"]).(de|falias '|
|00005ac0| 74 70 75 2d 74 6f 67 67 | 6c 65 2d 72 65 63 74 61 |tpu-togg|le-recta|
|00005ad0| 6e 67 6c 65 20 23 5b 6e | 69 6c 20 22 08 3f 89 10 |ngle #[n|il ".?..|
|00005ae0| 83 0b 00 c1 82 5c 66 00 | c2 13 c4 20 88 74 85 20 |.....\f.|... .t. |
|00005af0| 00 c5 c6 08 83 1e 00 c7 | 82 1f 00 c8 5c 22 87 22 |........|....\"."|
|00005b00| 20 5b 74 70 75 2d 72 65 | 63 74 61 6e 67 75 6c 61 | [tpu-re|ctangula|
|00005b10| 72 2d 70 20 22 20 52 65 | 63 74 22 20 22 22 20 74 |r-p " Re|ct" "" t|
|00005b20| 70 75 2d 72 65 63 74 61 | 6e 67 6c 65 2d 73 74 72 |pu-recta|ngle-str|
|00005b30| 69 6e 67 20 74 70 75 2d | 75 70 64 61 74 65 2d 6d |ing tpu-|update-m|
|00005b40| 6f 64 65 2d 6c 69 6e 65 | 20 6d 65 73 73 61 67 65 |ode-line| message|
|00005b50| 20 22 52 65 63 74 61 6e | 67 75 6c 61 72 20 63 75 | "Rectan|gular cu|
|00005b60| 74 20 61 6e 64 20 70 61 | 73 74 65 20 25 73 61 62 |t and pa|ste %sab|
|00005b70| 6c 65 64 2e 22 20 22 65 | 6e 22 20 22 64 69 73 22 |led." "e|n" "dis"|
|00005b80| 5d 20 34 20 22 5c 0a 54 | 6f 67 67 6c 65 20 72 65 |] 4 "\.T|oggle re|
|00005b90| 63 74 61 6e 67 75 6c 61 | 72 20 6d 6f 64 65 20 66 |ctangula|r mode f|
|00005ba0| 6f 72 20 72 65 6d 6f 76 | 65 20 61 6e 64 20 69 6e |or remov|e and in|
|00005bb0| 73 65 72 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |sert." n|il]).(de|
|00005bc0| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 61 72 72 61 |falias '|tpu-arra|
|00005bd0| 6e 67 65 2d 72 65 63 74 | 61 6e 67 6c 65 20 23 5b |nge-rect|angle #[|
|00005be0| 6e 69 6c 20 22 69 c0 20 | 88 69 19 1a 60 c3 20 56 |nil "i. |.i..`. V|
|00005bf0| 83 26 00 09 5c 6e 56 83 | 19 00 c0 20 82 39 00 c4 |.&..\nV.|... .9..|
|00005c00| 5c 6e 21 88 c0 20 88 c4 | 09 21 82 39 00 09 5c 6e |\n!.. ..|.!.9..\n|
|00005c10| 56 85 39 00 c4 5c 6e 21 | 88 c0 20 88 c4 09 21 88 |V.9..\n!|.. ...!.|
|00005c20| c0 20 2a 87 22 20 5b 65 | 78 63 68 61 6e 67 65 2d |. *." [e|xchange-|
|00005c30| 70 6f 69 6e 74 2d 61 6e | 64 2d 6d 61 72 6b 20 70 |point-an|d-mark p|
|00005c40| 63 20 6d 63 20 74 70 75 | 2d 6d 61 72 6b 20 6d 6f |c mc tpu|-mark mo|
|00005c50| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 2d 66 6f 72 |ve-to-co|lumn-for|
|00005c60| 63 65 5d 20 32 20 22 5c | 0a 41 64 6a 75 73 74 20 |ce] 2 "\|.Adjust |
|00005c70| 70 6f 69 6e 74 20 61 6e | 64 20 6d 61 72 6b 20 74 |point an|d mark t|
|00005c80| 6f 20 6d 61 72 6b 20 75 | 70 70 65 72 20 6c 65 66 |o mark u|pper lef|
|00005c90| 74 20 61 6e 64 20 6c 6f | 77 65 72 20 72 69 67 68 |t and lo|wer righ|
|00005ca0| 74 0a 63 6f 72 6e 65 72 | 73 20 6f 66 20 61 20 72 |t.corner|s of a r|
|00005cb0| 65 63 74 61 6e 67 6c 65 | 2e 22 5d 29 0a 28 64 65 |ectangle|."]).(de|
|00005cc0| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 63 75 74 2d |falias '|tpu-cut-|
|00005cd0| 74 65 78 74 20 23 5b 6e | 69 6c 20 22 c0 20 83 27 |text #[n|il ". .'|
|00005ce0| 00 09 83 18 00 c2 20 88 | c3 60 c0 20 5c 66 3f 23 |...... .|.`. \f?#|
|00005cf0| 88 c5 c6 21 87 c0 20 60 | 7b 16 07 c0 20 60 7c 88 |...!.. `|{... `|.|
|00005d00| c5 c6 21 87 c8 20 83 44 | 00 c9 20 ca 20 1e 0b 89 |..!.. .D|.. . ...|
|00005d10| 1e 5c 66 0e 0b 7b 16 07 | 0e 5c 66 0e 0b 7c 88 cd |.\f..{..|.\f..|..|
|00005d20| 20 2a 87 ce cf 21 87 22 | 20 5b 74 70 75 2d 6d 61 | *...!."| [tpu-ma|
|00005d30| 72 6b 20 74 70 75 2d 72 | 65 63 74 61 6e 67 75 6c |rk tpu-r|ectangul|
|00005d40| 61 72 2d 70 20 74 70 75 | 2d 61 72 72 61 6e 67 65 |ar-p tpu|-arrange|
|00005d50| 2d 72 65 63 74 61 6e 67 | 6c 65 20 70 69 63 74 75 |-rectang|le pictu|
|00005d60| 72 65 2d 63 6c 65 61 72 | 2d 72 65 63 74 61 6e 67 |re-clear|-rectang|
|00005d70| 6c 65 20 6f 76 65 72 77 | 72 69 74 65 2d 6d 6f 64 |le overw|rite-mod|
|00005d80| 65 20 74 70 75 2d 75 6e | 73 65 6c 65 63 74 20 74 |e tpu-un|select t|
|00005d90| 20 74 70 75 2d 6c 61 73 | 74 2d 64 65 6c 65 74 65 | tpu-las|t-delete|
|00005da0| 64 2d 72 65 67 69 6f 6e | 20 74 70 75 2d 63 68 65 |d-region| tpu-che|
|00005db0| 63 6b 2d 6d 61 74 63 68 | 20 74 70 75 2d 6d 61 74 |ck-match| tpu-mat|
|00005dc0| 63 68 2d 62 65 67 69 6e | 6e 69 6e 67 20 74 70 75 |ch-begin|ning tpu|
|00005dd0| 2d 6d 61 74 63 68 2d 65 | 6e 64 20 65 6e 64 20 62 |-match-e|nd end b|
|00005de0| 65 67 20 74 70 75 2d 75 | 6e 73 65 74 2d 6d 61 74 |eg tpu-u|nset-mat|
|00005df0| 63 68 20 65 72 72 6f 72 | 20 22 4e 6f 20 73 65 6c |ch error| "No sel|
|00005e00| 65 63 74 69 6f 6e 20 61 | 63 74 69 76 65 2e 22 5d |ection a|ctive."]|
|00005e10| 20 35 20 22 5c 0a 44 65 | 6c 65 74 65 20 74 68 65 | 5 "\.De|lete the|
|00005e20| 20 73 65 6c 65 63 74 65 | 64 20 72 65 67 69 6f 6e | selecte|d region|
|00005e30| 2e 0a 54 68 65 20 74 65 | 78 74 20 69 73 20 73 61 |..The te|xt is sa|
|00005e40| 76 65 64 20 66 6f 72 20 | 74 68 65 20 74 70 75 2d |ved for |the tpu-|
|00005e50| 70 61 73 74 65 20 63 6f | 6d 6d 61 6e 64 2e 22 20 |paste co|mmand." |
|00005e60| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00005e70| 27 74 70 75 2d 73 74 6f | 72 65 2d 74 65 78 74 20 |'tpu-sto|re-text |
|00005e80| 23 5b 6e 69 6c 20 22 c0 | 20 83 5c 22 00 09 83 18 |#[nil ".| .\"....|
|00005e90| 00 8a c2 20 88 c3 60 c0 | 20 5c 22 14 29 c5 c6 21 |... ..`.| \".)..!|
|00005ea0| 87 c0 20 60 7b 16 07 c5 | c6 21 87 c8 20 83 31 00 |.. `{...|.!.. .1.|
|00005eb0| c9 20 ca 20 7b 16 07 cb | 20 87 cc cd 21 87 22 20 |. . {...| ...!." |
|00005ec0| 5b 74 70 75 2d 6d 61 72 | 6b 20 74 70 75 2d 72 65 |[tpu-mar|k tpu-re|
|00005ed0| 63 74 61 6e 67 75 6c 61 | 72 2d 70 20 74 70 75 2d |ctangula|r-p tpu-|
|00005ee0| 61 72 72 61 6e 67 65 2d | 72 65 63 74 61 6e 67 6c |arrange-|rectangl|
|00005ef0| 65 20 65 78 74 72 61 63 | 74 2d 72 65 63 74 61 6e |e extrac|t-rectan|
|00005f00| 67 6c 65 20 70 69 63 74 | 75 72 65 2d 6b 69 6c 6c |gle pict|ure-kill|
|00005f10| 65 64 2d 72 65 63 74 61 | 6e 67 6c 65 20 74 70 75 |ed-recta|ngle tpu|
|00005f20| 2d 75 6e 73 65 6c 65 63 | 74 20 74 20 74 70 75 2d |-unselec|t t tpu-|
|00005f30| 6c 61 73 74 2d 64 65 6c | 65 74 65 64 2d 72 65 67 |last-del|eted-reg|
|00005f40| 69 6f 6e 20 74 70 75 2d | 63 68 65 63 6b 2d 6d 61 |ion tpu-|check-ma|
|00005f50| 74 63 68 20 74 70 75 2d | 6d 61 74 63 68 2d 62 65 |tch tpu-|match-be|
|00005f60| 67 69 6e 6e 69 6e 67 20 | 74 70 75 2d 6d 61 74 63 |ginning |tpu-matc|
|00005f70| 68 2d 65 6e 64 20 74 70 | 75 2d 75 6e 73 65 74 2d |h-end tp|u-unset-|
|00005f80| 6d 61 74 63 68 20 65 72 | 72 6f 72 20 22 4e 6f 20 |match er|ror "No |
|00005f90| 73 65 6c 65 63 74 69 6f | 6e 20 61 63 74 69 76 65 |selectio|n active|
|00005fa0| 2e 22 5d 20 33 20 22 5c | 0a 43 6f 70 79 20 74 68 |."] 3 "\|.Copy th|
|00005fb0| 65 20 73 65 6c 65 63 74 | 65 64 20 72 65 67 69 6f |e select|ed regio|
|00005fc0| 6e 20 74 6f 20 74 68 65 | 20 63 75 74 20 62 75 66 |n to the| cut buf|
|00005fd0| 66 65 72 20 77 69 74 68 | 6f 75 74 20 64 65 6c 65 |fer with|out dele|
|00005fe0| 74 69 6e 67 20 69 74 2e | 0a 54 68 65 20 74 65 78 |ting it.|.The tex|
|00005ff0| 74 20 69 73 20 73 61 76 | 65 64 20 66 6f 72 20 74 |t is sav|ed for t|
|00006000| 68 65 20 74 70 75 2d 70 | 61 73 74 65 20 63 6f 6d |he tpu-p|aste com|
|00006010| 6d 61 6e 64 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |mand." n|il]).(de|
|00006020| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 63 75 74 20 |falias '|tpu-cut |
|00006030| 23 5b 28 61 72 67 29 20 | 22 08 83 07 00 c1 20 87 |#[(arg) |"..... .|
|00006040| c2 20 87 22 20 5b 61 72 | 67 20 74 70 75 2d 73 74 |. ." [ar|g tpu-st|
|00006050| 6f 72 65 2d 74 65 78 74 | 20 74 70 75 2d 63 75 74 |ore-text| tpu-cut|
|00006060| 2d 74 65 78 74 5d 20 31 | 20 22 5c 0a 43 6f 70 79 |-text] 1| "\.Copy|
|00006070| 20 73 65 6c 65 63 74 65 | 64 20 72 65 67 69 6f 6e | selecte|d region|
|00006080| 20 74 6f 20 74 68 65 20 | 63 75 74 20 62 75 66 66 | to the |cut buff|
|00006090| 65 72 2e 20 20 49 6e 20 | 74 68 65 20 61 62 73 65 |er. In |the abse|
|000060a0| 6e 63 65 20 6f 66 20 61 | 6e 0a 61 72 67 75 6d 65 |nce of a|n.argume|
|000060b0| 6e 74 2c 20 64 65 6c 65 | 74 65 20 74 68 65 20 73 |nt, dele|te the s|
|000060c0| 65 6c 65 63 74 65 64 20 | 72 65 67 69 6f 6e 20 74 |elected |region t|
|000060d0| 6f 6f 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |oo." "P"|]).(defa|
|000060e0| 6c 69 61 73 20 27 74 70 | 75 2d 61 70 70 65 6e 64 |lias 'tp|u-append|
|000060f0| 2d 72 65 67 69 6f 6e 20 | 23 5b 28 61 72 67 29 20 |-region |#[(arg) |
|00006100| 22 c0 20 83 1f 00 c1 20 | c2 20 1b 1c 0d 5c 66 0b |". .... |. ...\f.|
|00006110| 7b 50 15 0e 06 84 1a 00 | 5c 66 0b 7c 88 c7 c8 21 |{P......|\f.|...!|
|00006120| 2a 87 c9 20 83 3d 00 ca | 20 cb 20 1b 1c 0d 5c 66 |*.. .=..| . ...\f|
|00006130| 0b 7b 50 15 0e 06 84 39 | 00 5c 66 0b 7c 88 cc 20 |.{P....9|.\f.|.. |
|00006140| 2a 87 cd ce 21 87 22 20 | 5b 74 70 75 2d 6d 61 72 |*...!." |[tpu-mar|
|00006150| 6b 20 72 65 67 69 6f 6e | 2d 62 65 67 69 6e 6e 69 |k region|-beginni|
|00006160| 6e 67 20 72 65 67 69 6f | 6e 2d 65 6e 64 20 65 6e |ng regio|n-end en|
|00006170| 64 20 62 65 67 20 74 70 | 75 2d 6c 61 73 74 2d 64 |d beg tp|u-last-d|
|00006180| 65 6c 65 74 65 64 2d 72 | 65 67 69 6f 6e 20 61 72 |eleted-r|egion ar|
|00006190| 67 20 74 70 75 2d 75 6e | 73 65 6c 65 63 74 20 74 |g tpu-un|select t|
|000061a0| 20 74 70 75 2d 63 68 65 | 63 6b 2d 6d 61 74 63 68 | tpu-che|ck-match|
|000061b0| 20 74 70 75 2d 6d 61 74 | 63 68 2d 62 65 67 69 6e | tpu-mat|ch-begin|
|000061c0| 6e 69 6e 67 20 74 70 75 | 2d 6d 61 74 63 68 2d 65 |ning tpu|-match-e|
|000061d0| 6e 64 20 74 70 75 2d 75 | 6e 73 65 74 2d 6d 61 74 |nd tpu-u|nset-mat|
|000061e0| 63 68 20 65 72 72 6f 72 | 20 22 4e 6f 20 73 65 6c |ch error| "No sel|
|000061f0| 65 63 74 69 6f 6e 20 61 | 63 74 69 76 65 2e 22 5d |ection a|ctive."]|
|00006200| 20 33 20 22 5c 0a 41 70 | 70 65 6e 64 20 73 65 6c | 3 "\.Ap|pend sel|
|00006210| 65 63 74 65 64 20 72 65 | 67 69 6f 6e 20 74 6f 20 |ected re|gion to |
|00006220| 74 68 65 20 74 70 75 2d | 63 75 74 20 62 75 66 66 |the tpu-|cut buff|
|00006230| 65 72 2e 20 20 49 6e 20 | 74 68 65 20 61 62 73 65 |er. In |the abse|
|00006240| 6e 63 65 20 6f 66 20 61 | 6e 0a 61 72 67 75 6d 65 |nce of a|n.argume|
|00006250| 6e 74 2c 20 64 65 6c 65 | 74 65 20 74 68 65 20 73 |nt, dele|te the s|
|00006260| 65 6c 65 63 74 65 64 20 | 72 65 67 69 6f 6e 20 74 |elected |region t|
|00006270| 6f 6f 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |oo." "P"|]).(defa|
|00006280| 6c 69 61 73 20 27 74 70 | 75 2d 64 65 6c 65 74 65 |lias 'tp|u-delete|
|00006290| 2d 63 75 72 72 65 6e 74 | 2d 6c 69 6e 65 20 23 5b |-current|-line #[|
|000062a0| 28 6e 75 6d 29 20 22 60 | 18 09 79 88 68 c2 3d 84 |(num) "`|..y.h.=.|
|000062b0| 0e 00 c3 63 88 08 60 7b | 14 08 60 7c 29 87 22 20 |...c..`{|..`|)." |
|000062c0| 5b 62 65 67 20 6e 75 6d | 20 31 30 20 22 5c 6e 22 |[beg num| 10 "\n"|
|000062d0| 20 74 70 75 2d 6c 61 73 | 74 2d 64 65 6c 65 74 65 | tpu-las|t-delete|
|000062e0| 64 2d 6c 69 6e 65 73 5d | 20 32 20 22 5c 0a 44 65 |d-lines]| 2 "\.De|
|000062f0| 6c 65 74 65 20 6f 6e 65 | 20 6f 72 20 73 70 65 63 |lete one| or spec|
|00006300| 69 66 69 65 64 20 6e 75 | 6d 62 65 72 20 6f 66 20 |ified nu|mber of |
|00006310| 6c 69 6e 65 73 20 61 66 | 74 65 72 20 70 6f 69 6e |lines af|ter poin|
|00006320| 74 2e 0a 54 68 69 73 20 | 69 6e 63 6c 75 64 65 73 |t..This |includes|
|00006330| 20 74 68 65 20 6e 65 77 | 6c 69 6e 65 20 63 68 61 | the new|line cha|
|00006340| 72 61 63 74 65 72 20 61 | 74 20 74 68 65 20 65 6e |racter a|t the en|
|00006350| 64 20 6f 66 20 65 61 63 | 68 20 6c 69 6e 65 2e 0a |d of eac|h line..|
|00006360| 54 68 65 79 20 61 72 65 | 20 73 61 76 65 64 20 66 |They are| saved f|
|00006370| 6f 72 20 74 68 65 20 54 | 50 55 2d 65 64 74 20 75 |or the T|PU-edt u|
|00006380| 6e 64 65 6c 65 74 65 2d | 6c 69 6e 65 73 20 63 6f |ndelete-|lines co|
|00006390| 6d 6d 61 6e 64 2e 22 20 | 22 70 22 5d 29 0a 28 64 |mmand." |"p"]).(d|
|000063a0| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 64 65 6c |efalias |'tpu-del|
|000063b0| 65 74 65 2d 74 6f 2d 65 | 6f 6c 20 23 5b 28 6e 75 |ete-to-e|ol #[(nu|
|000063c0| 6d 29 20 22 60 18 c1 75 | 88 5c 6e 7f 88 08 60 7b |m) "`..u|.\n...`{|
|000063d0| 13 08 60 7c 29 87 22 20 | 5b 62 65 67 20 31 20 6e |..`|)." |[beg 1 n|
|000063e0| 75 6d 20 74 70 75 2d 6c | 61 73 74 2d 64 65 6c 65 |um tpu-l|ast-dele|
|000063f0| 74 65 64 2d 6c 69 6e 65 | 73 5d 20 32 20 22 5c 0a |ted-line|s] 2 "\.|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
